How do you obtain last word of string in perl?

my $string = "www.regen.com/issn/vol/isssue/art";
$string =~ m/([^\/]+)$/;
print $1;