print "$1\n" while ($html =~ /sid=([a-f\d]+)"/g);