- 188 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/01/14(土) 23:02:30 ID:tMpPinlB0]
- $host = 'www.cybersyndrome.net';
my ($id, $pw) = eval{
my $request = HTTP::Request->new(GET => "$host/");
my $list = $Ua->request($request)->as_string;
return ($list =~ m|(?!>)<b>([0-9A-Za-z]{8})</b>|) x 2;
};
