なんにそんな処理を使うのか良くわからんのだが、こういうことか
$url =~ m,(http://.*?)(/.*/),;

absoluteって絶対パスにするって意味じゃないのか？それ不完全なわけだが
URIモジュールのabsメソッドで使ったほうが簡単そうな予感
http://search.cpan.org/~gaas/URI-1.35/URI.pm
URI->new('../file')->abs('/base/');