found a bug in this version that is posted.. Search pattern not terminated at line blah. problem is there is a missing / to end the search pattern the if statement if($file=~/A-Z){ should read: if ($file=~/A-Z/){