$var = substr($str, 41, 2);
print "$.: $var: $str\n";