Select Code to Download

my %hex = map { $_ => 1 } qw( AB CD B1 );

...

   print "$kw $rdata\n";
}

sub format_as_text { return $_[0];                   }
sub format_as_hex  { return uc(unpack('H*', $_[0])); }
...
   $rdata = $kwfmt{$kw}->($rdata);
   print "$kw $rdata\n";
}