E` un po' che non smanetto piu` in Perl, per cui la sintassi mi sfugge. Posto solo la logica.

open(...)
while(<...>){
print();
}