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

##</code><code>##

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