Select Code to Download

package Regs;
use strict;
...
sub re2 {
  $_[0] =~ s/xxx/yyy/g;
}

use strict;
use Devel::AutoProfiler;
use Regs qw(:all);
...
re1($b);
re2($b);
print "b is $b\n";