my $v = '/path/to/module.pm';
$v =~ m{^(.*)/(.*)$};
say "($1) ($2)";

##</code><code>##

(/path/to) (module.pm)

##</code><code>##

my $modulepath;
if($v =~ m{^(.*)module.pm$}){
 $modulepath = $1;
}