#!/usr/bin/perl
# main program:
use fred;

'fred' =~ /^f(re)d$/;

Fred::Fred();

##</code><code>##

#!/usr/bin/perl
# fred.pm:
package Fred;

sub Fred{
    print "$&\t$+\n";
}
1;

##</code><code>##

fred    re