Lesiš og skrifaš ķ textaskrįr

Til žess aš bśa til skrį og skrifa ķ hana eru eftirfarandi skipanir:
open (SKRA, ">skra.txt");
print SKRA "Fyrsta lķna ķ nżrri skrį";
close SKRA;

Til žess aš bęta aftan viš textaskrį eru žessar skipanir:

open (SKRA, ">>skra.txt");
print SKRA "Önnur lķna ķ nżrri skrį";
close SKRA;

Til žess aš lesa sömu skrį og skrifa hana į skjįinn:

open (SKRA, "skra.txt");
@linur = <SKRA>;
print @linur;

Hęgt er aš stilla lestrarhįtt į żmsa vegu, t.d. žannig aš ķ hverri fęrslu ķ listanum sem tekur viš efni skrįrinnar sé ein mįlsgrein og er žį mišaš viš aš auš lķna skilji milli mįlsgreina. Til žess aš koma žvķ ķ kring žarf aš stilla į mįlsgreinalestur og leyfa aš margar lķnur (ašskildar af \n) myndi eina fęrslu:

# Lestrarmįti forrits stilltur
$/=""; # Enable paragraph mode
$*=1;  # Enable multi-line pattern
open (SKRA, "skra.txt");
@malsgreinar = <SKRA>;
close SKRA;

Efni skrįarinnar mętti sķšan skrifa meš nśmerušum mįlsgreinum og lķnum t.d. į žennan veg:

$mgr = 0;
foreach (@malsgreinar){
  $mgr++;
  @linur = split("\n", $_);
  $lin = 0;
  foreach (@linur){
    $lin++;
    print "$mgr\-$lin:$_\n";
  }
}