#!/bin/perl5

use strict;
use warnings;
use HTML::TokeParser::Simple;

my $html = '<input type="hidden" name="VERIFIER" value="076-62">';
my $attribute = 'value';
my $value;

my $tp = HTML::TokeParser::Simple->new(\$html)
  or die "Couldn't parse string: $!";

while (my $t = $tp->get_token) {
	
  if (
    $t->is_start_tag('input') and 
    $value = $t->get_attr($attribute)
  )
  {
      print "*$value*\n";
  }

}