ookawara@lx1:~$ cat a.plそうなんだ・・・
$s = "ABC";
$s =~ s/A//;
print "Match=$&\n";
$s = "BBC";
$s =~ s/A//;
print "Match=$&\n";
ookawara@lx1:~$ perl -f ./a.pl
Match=A
Match=A
Perlの$&
minor tranquilizer
Destroy the boss..Only the key opens the door..Open the door!!