$s = 'There is a \ random backwhack in this sentence.';
print "I found it\n" if $s =~ /\\/;