サブルーチン内で引数を一つだけ受け取るとき、
「$_」ではダメなんですね。
これでちょっとはまってしまって。
あくまでも、$_[0] $_[1] $_[2]を使うわけですね。

&clickableurl($lines);

とサブルーチンを呼び出したら、

sub clickableurl {
$_[0] =~ s/([^=^\"]|^)(http\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+\@]+)/$1<a href=\"$2\" target=\"hp\">$2<\/a>/g;
}

と受け取るわけですね。

ちなみにこれは文章中のURLの部分をクリッカブルにするルーチンです。