Help for this page
Select Code to Download
Select
or
download this
foreach ($response->content =~ /pcd=BT(\d+)/g) { print $count++,$1,"\n"; }