Select Code to Download

while ( my ( $hex ) = ($line =~ m/\[0x(..?)\]/)) {
    my $chr =  pack("h*", $hex);
    #print "$line \n Found hex value '$hex', equals char $chr\n";
    $line =~ s/\[0x$hex\]/$chr/;
}