(my $module) = $ENV{PATH_INFO} =~ m!^/([^/]+)/;
# mind this regex, I'm coming back at it in a few secs!

##</code><code>##

my @module_args = $ENV{PATH_INFO} =~ m!/([^/]+)!g;

##</code><code>##

my @module_args = split '/+', $ENV{PATH_INFO};