use strict;
use Devel::AutoProfiler;
use Regs qw(:all);

my $a = "fooxxxfoo";
my $b = "foo foo foo";

re1($a);
re2($a);
print "a is $a\n";

re1($b);
re2($b);
print "b is $b\n";