Für solche Sachen muss man nicht unbedingt Perl verwenden, mit den guten alten Unix-Tools kann man die Sache auch erledigen und weniger coden:

Performancemäßig dürfte das aber schlechter als eine reine Perl-Lösung sein.
Und falls sich jemand wundert, dass ich hier doch perl verwende: ein Unix-Purist würde sed verwenden, aber ich habe mittlerweile vergessen, was sed-Regexps können :-)