print "$1\n" while ($html =~ /sid=([:xdigit:]+)"/g);