Select Code to Download

#!/usr/bin/perl
# main program:
...
'fred' =~ /^f(re)d$/;

Fred::Fred();

#!/usr/bin/perl
# fred.pm:
...
    print "$&\t$+\n";
}
1;

fred    re