Help for this page

Select Code to Download

Select or download this

my ($string, $string2) = ("./t2", "/some/path/to/t3");
print join "\n", map {(split /\//)[-1]} ($string, $string2);

Select or download this
```
t2
t3
```