my $action = $0 =~ /([^/]+)$/;

##</code><code>##

$0 =~ /([^\/]+)$/;
my $action = $1;