first: ++davorg for already providing the really real right answer. in perl, there's always MTOWTDI, but some are better than others, and ones other people have already written properly and debugged are often best.

if you really want a regex to get everything after the last /, i think the easiest way is

(my $file = $url) =~ s~^.*/~~;
[download]

though maybe you prefer

my ($file) = $url =~ m~([^/]*)$~;
[download]

i also wanted to point out that in BigJoe's solution it is more idiomatically perl to say $array[-1] than $array[$#array]. this is useful to me because it may not always be clear how to get the last valid index of an array that is, say, stored as the second item in an anonymous array reffed by a hash entry... meaning $hash{stuff}[1]. but &091;-1&093; always works

.

update: as per the tachyon beam. no, i didn't test it because at the moment i am away from easy perl access. mea culpa. fixx0red.

.