my (@Category_Link)=$main_page=~m!<a href="http://www.testsite.co.uk/itm/(.+?)"!sg;


for my $temp_page (@Category_Link)
{

my @uniq = grep $temp_page{$_}++, @Category_Link;


print OUT "http://www.testsite.co.uk/itm/$temp_page\n";
}