Öhm, warum machst Du ein system() auf sed, wenn Du das ganze in Perl selbst realisieren kannst?
Du hast doch schon ein Perl Skript...