Perl: Text am Anfang einer Datei einfügen

Ein tatsächlich sehr praktisches Beispiel, weil man hier auch an Stelle "2" einfügen kann. Danke!

Das Auskommentieren einer Zeile funktioniert - in Anlehnung an das obige Beispiel - wie folgt:
perl -i.bak -pe 's/(.*)/#$1/ if $. == '

Hi

Das ganze geht auch relativ einfach mit sed (dürfte gerad ebei größeren Mengen besser performen)

uwe@krusty ~/tmp $ cat test
eins
zwei
uwe@krusty ~/tmp $ sed '1 i\voreins' test
voreins
eins
zwei

Mit sed -i wird die Datei auch gleich noch iline verändert. Diese option unterstützen jedoch nur neuere Versionen von (GNU) sed.