$text .= 'blahblah'; $text .= "\nblah\n"; $text .= 'blahblah'; $text .= "\nblah\n"; $page = (($text =~ m/name="VERIFIER"\ value="([-0-9]+?)">/xg),$1)[0]; print "$page";