foreach ($response->content =~ /pcd=BT(\d+)/g) {
  print $count++,$1,"\n";
}