perl -e '$a="MIN.(NERR_VOL2)"; $b="MIN.\(NERR_VOL2\)" ; $x = ( qq/$a/ =~ qq/$b/ ) ; print "$a == $b ? $x \n" ;' #### $b = "$a"; #### $b = $a;