A two line equivelent example:

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

Prints:

t2
t3
[download]

This is about "get last word" isn't it :)