package Regs;
use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = ();
our %EXPORT_TAGS = ( 'all' => [ qw(
 re1
 re2
) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our $VERSION = '0.10';

sub re1 {
  $_[0] =~ s/foo/bar/g;
}

sub re2 {
  $_[0] =~ s/xxx/yyy/g;
}

##</code><code>##

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";