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