$pat = 'fo.d';
$s =~ $pat

##</code><code>##

#! 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;