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