Подскажите с регуляркой

[perl6]

Приветствую, форумчане. Напарсил юзер-агентов, а там мусор встречается. Пишу вот регулярку, чтобы вытащить нормальные данные.

Код: (Perl)

/(Mozilla[^\v]+)(Mozilla[^\v]+)/gm

Вот для такой мульти-строки отлично работает:

Код: (Text)

Mozilla/5.0
Chrome/51.0.2704.103 Safari/537.36
 Chrome/61.0.3163.100 Safari/537.36
Mozilla/5.0 (Windows NT 10.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36 Mozilla/5.0 (Windows NT 10.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/57.0.2987.133 Safari/537.36
Mozilla/5.0 (Windows NT 10.0; rv:47.0) Gecko/20100101 Firefox/47.0 Mozilla/5.0 (Windows NT 10.0; rv:50.0) Gecko/20100101 Firefox/50.0

Видим, что мусор отбрасывается, незавершенные строки, а там, где на одной строке два идентификатора, данные успешно распарсиваются.

Код: (DOS)

Microsoft Windows [Version 10.0.16299.371]
(c) Корпорация Майкрософт (Microsoft Corporation), 2017. Все права защищены.

C:\Users\Саша>cd desktop

C:\Users\Саша\Desktop>t1.pl
Mozilla/5.0 (Windows NT 10.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36
Mozilla/5.0 (Windows NT 10.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/57.0.2987.133 Safari/537.36
Mozilla/5.0 (Windows NT 10.0; rv:47.0) Gecko/20100101 Firefox/47.0
Mozilla/5.0 (Windows NT 10.0; rv:50.0) Gecko/20100101 Firefox/50.0
C:\Users\Саша\Desktop>

Однако, стоит добавить обычную строку, вида

Код: (Text)

Mozilla/5.0 (Windows NT 10.0) AppleWebKit/537.36 (KHTML, like Gecko)

и, она игнорируется. Т.е., чистая строка игнорируется. Хотелось бы ее записать в первое совпадение, не соображу, как модифицировать regex.
Понятно, что в текущей конфиг. пёрл ее игнорит, т.к. ждет, что дальше должна быть другая строка, вот как модифицировать первый шаблон, чтобы под него попадала обычная чистая строка агента, ничем не оканчивающаяся?

[RXL]

А не проще вычистить непотребщину и парсить как обычно?

Код:

tr/\x00-\x1f//d

или лучше в обратку

Код:

tr/\x20-\x7e//cd

[perl6]

А не проще вычистить непотребщину и парсить как обычно?

Код:

tr/\x00-\x1f//d

или лучше в обратку

Код:

tr/\x20-\x7e//cd

Не совсем понял идею, а зачем тут транслитерация.
П.С. Про то, чтобы сначала почистить тоже думал, но хочется сделать все сразу, так сказать, изящно. Выпарсить данные из мусора.

Upd. В общем, разобрался сам. Правда пёрл ругается ворнингами, но работает вроде нормально. Пробовал полностью юзерагент описать регуляркой, оказалось не лучшим решением, выражение километровое и то, все идентификаторы не учтешь. Помогло то, что у меня данные специфичные, можно зацепиться за начало и конец строки.
Всем спасибо.

[RXL]

Есть такое поверие, что профи пишут тупой код. На хабре в прошлом году даже статья была такая. Почитай, проникнись, не пиши "изящно", чаще думай о других.

[perl6]

Есть такое поверие, что профи пишут тупой код. На хабре в прошлом году даже статья была такая. Почитай, проникнись, не пиши "изящно", чаще думай о других.

А кроме меня все равно никому это не надо. Но, учту на будущее.

[Алексей++]

perl6, самое интересное и наиболее вероятное, что тот "другой" -это окажешься именно ты сам через месяц-два ) Будешь смотреть на запутанный код и чесать репу - "а кто это всё написал"

[RXL]

Вот сейчас переписывал код. Писал его способный, опытный программист. Но очень много времени нужно, чтобы понять, чего же он там накодил. А за такие тесты хочется немного расстрелять.