hm schritt 1 nimm mal esskars code der alle dateien eines verzeichnisses öffnet:

http://board.perl-community.de/cgi-bin....8;#idx2

das print <$file> nimm raus weil du ja nichts ausgeben willst und da du ja nur die txt dateien willst füge dazu:

next unless $filename =~ m!\.txt$!;

jetzt kannst cor dem close mit jeder deiner dateien deine magische operation machen mit einer ähnlichen regex kannst du dann auch den neues dateinamen erzeugen:

$filename =~ s!\.txt\z!\.sql!;