open (INFILE, "$ARGV[1]") or die "$ARGV[1] cannot be openned : $!"; while ($source_file =~ /(\d)\s+(\d)\s+(\d)\s+(\w+)/) #### if ($ARGV[0] eq "-a") #### use strict; use warnings; use diagnostics;