find (\&process, $folder);

sub process
{
         if ($_ =~ /\.9$/) {

   print "\nProcessing the fort.9 files, from taylor type to z values\n";
         open (FILE, '<', $_) or
         die "Cannot open file: $!";

$/= "# input for";

while (<FILE>) {

#do something

push(@outLines, $_ );
        }
        close FILE;

        open ( OUTFILE, ">adjusted.learn" ) or
        die "Cannot open file: $!";

        print ( OUTFILE @outLines );
        close ( OUTFILE );


}

}
exit;