#!/usr/bin/perl

#use 5.006;
#use strict;
use warnings;


open (IN, "+</home/victim/perl/mifile.txt");

@file = <IN>;

seek IN,0,0;

foreach $file (@file){
$file =~ s/muster1/\#\ muster2/i;
#$file =~ s/muster1/\#\ muster2/ig;
print IN $file;
}
close IN;

#l15 s/ersetze/mit/ig
#l15 bei \ muster2 wird zusätzliche ein # und ein leerzeichen eingefügt
#l15 s /i= case insensitive g = global alle
#l18 filehandle schliessen
#ohne g nicht global wird nur 1x ausgeführt
# rofl: print map {chr (((hex A0)/2+3)+$_)}(0,-11,-10,1)
grep:
[id://811976]
hashes:
[id://563314]