my $octets = encode("utf8", $line);
        $octets =~ s/^\x{ef}\x{bb}\x{bf}//;
        $line = decode("utf8", $octets);

##</code><code>##

        my $BOM = decode("utf8", "\x{ef}\x{bb}\x{bf}");
        $line =~ s/^$BOM//;

##</code><code>##

        my $BOM = chr(0xFEFF);
        $line =~ s/^$BOM//;

##</code><code>##

        $line =~ s/^\x{FEFF}//;