perl -pe "chomp;" text.txt

##</code><code>##

LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
}
continue {
    die "-p destination: $!\n" unless print $_;
}

##</code><code>##

perl -ne "chomp;print" text.txt

##</code><code>##

LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    print $_;
}