コメント行を除きたい時が多々あるので、その方法をメモ。
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
open(my $fh, '<', '/tmp/hoge') or die "$!";
my @lines = <$fh>;
close($fh) or die "$!";
@lines = map { $_ =~ s/\r//; $_ =~ s/\n//; $_ } @lines;
print "[before]\n";
print