This isn't too difficult. Just make sure you use loops.

@files=( $file1,$file2,....);
foreach $file (@files){
    open( FILE, "<$file");
    @info = <FILE>;
    shift( @info);
    close FILE;
    open( FILE, ">$file");
    print FILE @info;
    close FILE;
}
[download]

or something similar should do the trick. Or do you mean something else?

Hope this helps,

Jeroen
I was dreaming of guitarnotes that would irritate an executive kind of guy (FZ)