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


##</code><code>##

$seperatorArg = "\xd1";


##</code><code>##

use constant HEXD1 => "\xd1";
use constant HEXDC => "\xdc";
 
 
$arg = shift(@ARGV);
 
if ($arg eq "HEXD1") {
    $arg = HEXD1;
    print " HEX D1 IS $arg \n";
}
elsif ($arg eq "HEXDC") {
                $arg = HEXDC;
    print " HEX DC IS $arg \n";
}


##</code><code>##


perl hex.pl HEXD1

perl hex.pl HEXDC