#!/usr/bin/perl
while($inline = <STDIN>) {
$gb = length ($inline);
#printf STDERR "\nThe length is :%d", $gb;
@lg = unpack("C$gb",$inline);
$sn = 0;
for $slg (@lg) {
printf STDOUT "0x%x, " , $slg;
#if(!(($sn+1)%16)) {
#	print "\n";
		
#}
#$sn+=1;
}

}