$ perl -e '"foo" =~ /(o)/; print @+,$/'
22
$ perl -e '"foo" =~ /(o)/; print "@+",$/'
@+
$ perl -v
This is perl, v5.6.1 built for i686-linux
..to:
$ perl -e '"foo" =~ /(o)/; print @+,$/'
22
$ perl -e '"foo" =~ /(o)/; print "@+",$/'
2 2
$ perl -v
This is perl, v5.8.0 built for i386-linux-thread-multi
perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER' |