Кури RFC, %username%!

Люблю я в своей работе использовать модуль Regexp::Common, созданный незабвенной Abigail!

А ЗРЯ :-E

$ perl -MRegexp::Common -le 'print "www.610.ru" =~ /^$RE{net}{domain}{-nospace}$/ ? 1 : 0'
0

Это обыкновенный промышленный саботаж. И главное, ведь не подкопаешься: всё в соответствии с RFC.

Кстати, для тех, кто не знает, що таке {-nospace}, подывытыся:

$ perl -MRegexp::Common -le 'print " " =~ /^$RE{net}{domain}$/ ? 1 : 0'
1

Призываю создать в культуре Perl новое движение — RFC-нацизм, Abigail назначить его бессменным лидером, модуль переименовать в Regexp::Uncommon и использовать для пыток инакомыслящих.