>>489
Regexp::Common 使った方が良いかと。

use Regexp::Common qw/URI/;

our $URI_RE = qr/
    $RE{URI}{HTTP}
  | $RE{URI}{HTTP}{'-scheme' => 'https'}
  | $RE{URI}{FTP}
/x;

our $HREF_ATTR_RE = qr/
    href
  | action
  | src
/ix;

s@(^|(?:$HREF_ATTR_RE)[^='"])($URI_RE)@$1<a href="$2">$2</a>@g;

とりあえず、こんなもんですか。