#!/usr/bin/perl

use strict;
use warnings;


open(F, "test.htm");

while(<F>) {
   my @a = ($_ =~ /(http:\/\/hosting.+\.rar)/g );
   foreach(@a) { 
      chomp;
      print "$_\n"; 
   }
}

close(F);