package MyRegEx;

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

1;