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