$ 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