printf( qq[%04d %s\n], $., $line );