Select Code to Download

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$sub_body =~ s/\n/<BR>/g;