Предположу, что для этого: foreach (@_) { my $var = $_; s/aa/bb/; print "Было $var , стало $_"; } а вот наличие $_ - по незнанию видимо... foreach $_ (@_) А уж если хотели foreach my $var (@_) {} То... это совсем от незнания.