Da Du unter "Perl6" gepostet hast: Du verwendest noch Perl5-Syntax.
So gibt es unter Perl6 AFAIK foreach nicht mehr.

Falls Du nur das falsche Board gewählt hast:
$line =~ s.\n..; würde ich durch chomp $line; ersetzen
(oder mit einem Kommentar versehen, warum Du hier kein chomp nimmst.)

Ansonsten frage ich mich, wieso Du den File "new.txt" für jede Zeile einzeln öffnest und wieder schließt.