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