Easy enough: if ( $string =~ /\\\\[^\\]+\\[^\\]/) { print "match\n"; }. This says to have two backslashes, one or more things that aren't backslashes, another backslash and then something that isn't a backslash. You may want to check out death to dot star.