Help for this page

Select Code to Download

Select or download this
```
if ($_ = (m/^[\$]\w/)) {
```

Select or download this

perl -MO=Deparse,-P -e 'if($_ = (m/foo/)) { print 'hi' }'
if ($_ = /foo/) {
    print hi $_;
}
-e syntax OK