$ssid=$1 if $bot->content =~ m/name="ssid" value="([^"]+)"/; $bot->post($posturl,{ act => 2, reason => "spambot", ever => 1, a => $a, s => $s, t => $t, ssid => $ssid}); <...> ($key) = ($bot->content =~ /'(-8-0-[a-zA-Z0-9]+)'/) <...> $bot->content =~ /display='none'/ ? print " Removed\n" : warn "Failed to remove the message, remove url $victim\n";