$thing = substr($line,8,2);
$thing2 = substr($line,11,2);
if (!($thing2 =~ /\s+/)) {
$curraddr = substr($line,0,4);
printf "FOO%s\tEQU\t\$%s%s\n", $curraddr,$thing,$thing2;
$thing = substr($line,8,2);
$thing2 = substr($line,11,2);
if (!($thing2 =~ /\s+/)) {
$curraddr = substr($line,0,4);
printf "FOO%s\tEQU\t\$%s%s\n", $curraddr,$thing,$thing2;