Help for this page

Select Code to Download

Select or download this
```
$pat = 'fo.d';
$s =~ $pat
```

Select or download this

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