Help for this page

Select Code to Download

Select or download this

$r = qr/(.)/;
"a" =~ $r;
print "$1\n";
{ "b" =~ $r; print "$1\n"; }
print "$1\n";

Select or download this
```
a
b
a
```