$url =~ m!/([^/]+)$! or die "Couldn't find last element of '$url'"; my $FileName = $1; print $FileName;