open FILE, $dir.$file or die "$!  <<<<$file>>>>";

##</code><code>##

    if ($file =~ /\.pm/){
        #do something
    }