#! /usr/bin/perl -w

use strict;
use locale;
open INPUT, "<:encoding(UTF-16LE)", $ARGV[0];
open OUTPUT, ">:encoding(UTF-16LE)", "./Output_UTF-16";

while ( <INPUT> )
{
	# long list of regex-based replacements

	print OUTPUT $_;
}