Select Code to Download

use strict;

...
    substr( $val, pos( $val ) - length( $1 ), length( $1 ) ) = "moo";
    print( "$val\n" );
}