#!/usr/bin/perl -w

opendir(TEST, "test") or die "Can't open dir\n";
@testfiles = readdir (TEST);
closedir(TEST);

foreach $testfiles(@testfiles){
open(FILE, "test/$testfiles") or die "can't open file";
while ($line = <FILE>){
if ($line =~ /mods=[0-9][0-9]/){
$line =~ s/mods=[0-9][0-9]//;

printf FILE $line;
};
}
}