#!/usr/bin/perl 
while ($inline = <STDIN>) {
if( $inline !~ /RGBA|Making/) {
@num = split (/\s+/,$inline);
for $s (@num) {
$hexs = "0x" . $s;
$decs = hex ($hexs);
printf STDOUT "%c", $decs;
}
}
}