if ( $string =~ /\\\\.*\\.*/) { print"match\n"; }