Select Code to Download

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