use strict;

@ARGV == 1 or die "Specify a file path\n";

open(FILE, $ARGV) or die "Cannot open file: $!\n";


while (<>) {
	/(\S+)\s+\S+\s+(\S+)\s+(.*)/; #testing regex and tags
	print "$1, $2, $3\n"; #testing printing
}
close FILE;
print "Done!\n";

##</code><code>##

myperlscript.pl open, "C:/path/to/file/on_windows_pc/file.txt"