#!/usr/bin/perl -w
use strict;

my ($infile,$outfile) = @ARGV;

die "Usage: $0 INFILE OUTFILE$/" unless $infile and $outfile;

# carved in stone with my own blood :/

open IN, '<', $infile or die "cannot read [$infile]$/";
binmode IN, ":utf8";

open OUT, '>', $outfile or die "cannot write [$outfile]$/";

print OUT chr(0xff), chr(0xfe); # LE BOM

binmode OUT, ":raw:encoding(UTF-16le)";

my $first = 1;

while ( my $line = <IN> ) {
    $first or print OUT chr(0x0d), chr(0x0a);
    $first = 0;
    chomp $line;
    print OUT $line;
}