my $out = $file;
$out =~ s/\.\w+?$/.out/;