my $junk   = '<>]="\'';

$text =~ s{(?!$junk)\b($urls:[$any] +?)(?=[$punc]* [^$any]|$) }{<a href="$1">$1</a>}migox;