Help for this page
use warnings; use strict; ... (my $res = $test) =~ y/[ab]/[ba]/; warn $res;
$ perl tst.pl x x x a x x x b x x x a x x x b x x x at tst.pl line 5. x x x b x x x a x x x b x x x a x x x at tst.pl line 8.