Select Code to Download

@t1 = $resp->content=~/($cat_url_pattern\d+)/g;
@t2 = $resp->content=~/$cat_url_pattern\d+','([^']+)'/g;

while ($resp->content=~/($cat_url_pattern\d+)','([^']+)'/g){
    push @t1, $1;
    push @t2, $2;
}