#! perl -w
$\ = "\n";  # one line per print
$s = "abc\\.def";
print $s;
$s =~ /(\\.)/ and print $1;
$s =~ "(\\.)" and print $1;
$s =~ m"(\\.)" and print $1;