#!/usr/bin/perl

if ($#ARGV == 1 && -f $ARGV[0])
{
    open(INPUT, "<:encoding($ARGV[1])", $ARGV[0]) or die $!;
}
else
{
    print STDERR "Provide a valid file to read and encoding\n";
    exit;
}

for ($count =0; <INPUT>; $count++)
{
    chomp;
    s/\r//;
    $oline = $_;
    $line = $_;
    next if $count == 0;

    @data = split(/\t/, $line);
    if ($#data != 26)
    {
        print STDERR "LINE " . ($count+1) . ": Poorly Formatted Line ($#data)\n$oline\n$line\n" . join(',', @data) . "\n";
        next;
    }
    $ext = substr($data[26], -3);

    printf("md \"%s\\%s\"\r\ncopy /Y \"%s\" \"%s\\%s\\%s - %s.%s\"\r\n", $data[5], $data[3], $data[26], $data[5], $data[3], $data[1], $data[0], $ext);
}

close(INPUT);