package MyRegEx;

sub compile{
    my ($eins,$zwei) = @_;
    my $re = qr/
         $eins
         (?:b|c)*
         $zwei
    /x;
    return $re;
}

1;

use MyRegEx;

if($string =~ MyRegEx::compile('a','n')){
    print "matched\n";
}