Help for this page

Select Code to Download

Select or download this
```
my $action = $0 =~ /([^/]+)$/;
```
Select or download this
```
$0 =~ /([^\/]+)$/;
my $action = $1;
```