#!/usr/local/bin/perl
 open fh, ">ash.txt";
open (MYFILE,'16_hr_file_Tmobile_rightmove');
while (<MYFILE>) {
chomp;

if ($_ =~ m/\thttp:\/\/m.rightmove\.co\.uk/i)
##if ($_ =~ m/\t(http:\/\/m.rightmove\.co\.uk || m.rightmove\.co\.uk)/i)
###if ($_ =~ m/\tm.rightmove\.co\.uk/i)
##if ($_ =~ m/m.rightmove\.co\.uk/i)
{
  print fh "$_\n";

}

###print "$_\n";
}
close (MYFILE);