#!/usr/bin/perl

open(INPUT,"./moretext.hex");
$line = "";
while(<INPUT>){
	chomp $_;
	$line .= $_;
}
@values = split(/ /,$line);
foreach(@values){
	$hex = hex $_;
	$hex = $hex - 65;
	if($hex == -21){ $hex = 27; }
	if($hex == -19){ $hex = 28; }
	if($hex == -32){ $hex = 30; }
	if($hex == -2){ $hex = 29; }
	if($hex == -33){ $hex = 31; }
	if($hex == -55){ print "\n"; }
	else{
		printf("\$%x, ", $hex);
	}
}
print "\n";
