my (undef, %lines) = split(/(\d+): /, join('', <DATA>));