my $sep = pack "H2", (shift @ARGV);  # with input being 'd1', for example