dagmar@dryad:~$ cat foo.pl
#!/usr/bin/perl
#

$url='http://blah.aol.com/username';

if ($url =~ /\/([^\/]+)$/) {
        print "$1\n";
}
dagmar@dryad:~$ perl foo.pl
username
dagmar@dryad:~$