emb($str, $rm, $result) and print $result;

##</code><code>##

    my $str = 'foXobYar';
    my $rm = 'XY';
    my $result;
    emb1($str, $rm, $result) and print $result;
    __END__
    foobar