use strict;
 
my $seperatorArg;
 
$seperatorArg = shift(@ARGV);
 
print "field1 $seperatorArg field2";