Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...

(my $res = $test) =~ y/[ab]/[ba]/;
warn $res;
  2. or download this
    $  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.