foreach my $line (read_file($file_name)) {
chomp $line;
$line = Encode::decode('UTF-8', $line);
$line =~ s{\r+}{};
$line_number++;
foreach my $line (read_file($file_name)) {
chomp $line;
$line = Encode::decode('UTF-8', $line);
$line =~ s{\r+}{};
$line_number++;