Select Code to Download

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

(/path/to) (module.pm)

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