in reply to Regexp question
if ( $html =~ m/id="$element" name="challenge" value="(.*?)"/ ) { $post{$element} = $1; } [download]
use strict; use CGI; [download]
$post{$element} = $1 if $html =~ m/id="$element" name="challenge" value="(.*?)"/; [download]
Unless you expect $element to contain metacharacters, you should use
m/id="\Q$element\E" name="challenge" value="(.*?)"/; [download]
to escape any metacharacters in $html. See quotemeta for more.