Try this:

my ( $naam ) = ( $url =~ m:/([^/]+)$: );
# This basically grabs everything that's not a / after
# the last / and stores it in $naam.
[download]

cameloid@yahoo.co.uk