$string = "COM7:";
$string =~ s/(.)(.)?/sprintf("0x%02X%02X\n",ord($2),ord($1))/seg;
print "${string}0x0000\n";
[download]

0x4F43
0x374D
0x003A
0x0000

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.