print "Matched!" if $myvar =~ /\Q$myob->print\E/;

##</code><code>##

print "Matched!" if $myvar =~ /(?{$myob->escaped})/;