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