use Foo;

my $r = Foo->new( '[aeiou]+\\d+' );
my $super_re = qr/[A-Z]+$r/;

print <<OUT;
r     = /$r/
super = /$super_re/
OUT

for( @ARGV ) {
    my $match = ($_ =~ /$r/) ? 1 : 0;
    print "$_ match=$match\n";
}