Help for this page

Select Code to Download

Select or download this

$a = "/home/a/ff.pl";

...
    print "\$2 = ", $2, "\n";    # output is  a/ff.pl

}

Select or download this
```
 if ($a =~ /^(\/home\/)(\W)(\S+).*$/)
```