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