>>874 ９桁対応版
{
　　substr($_, 9, 1) eq '.'
　　　　? printf($tmpl, substr($_, 0, 10), $cnt, substr($_, 15));
　　　　: printf($tmpl, substr($_, 0, 9), $cnt, substr($_, 14));
}