$text =~ s{^($urls:[$any] +?)(?=[$punc]* [^$any]|$) }{$1}igox;