open (DANE3,"< /home/biol19/tekst.txt")
 or die "Nie znaleziono pliku\n" ;
print "======================================\n" ;
while (<DANE3>)
{
$tekst="$_" ;
print "$tekst" ;
# substitution
if ($tekst =~ /Anna/)
{
print "$tekst" ;
$tekst =~ s/Anna/Joanna/ ;
print "$tekst" ;}
}