my $content = $response->content; while($content =~ /pcd=BT(\d+)/g)