Perl chomp不会删除所有换行符

#!/usr/bin/perl
use strict;
use warnings;
open(IO,\"<source.html\");
my $variable = do {local $/; <IO>};
chomp($variable);
print $variable;

$variable =~ s/\\n//g;

$/

$variable =~ y/\\n//d;

#!/usr/bin/perl

use strict;
use warnings;

open my $io, \'<\', \'source.html\';
my $chomped_text = join \'\', map {chomp(my $line = $_); $line} <$io>;

print $chomped_text;