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