#!/usr/bin/perl -w
use strict;
use HTML::TokeParser;

my $html = q(
<option value="STAFE">STAFE - 900 - BEN PROG - Food Assistance</option>
<option value="STAM7">STAM7 - 900 - BEN PROG - Med Asst - Lynchbrg</option>
<option value="STAM8">STAM8 - 900 - BEN PROG - Med Asst - Marion</option>
<option value="STAM9">STAM9 - 900 - BEN PROG - Med Asst - Petrsbrg</option>
<option value="STAMA">STAMA - 900 - BEN PROG - Medical Assistance</option>
<option value="STATA">STATA - 900 - BEN PROG - Economic Assistance</option>
<option value="STATR">STATR - 900 - BEN PROG - Training Development</option>);

my $p = HTML::TokeParser->new(\$html);
while(my $token = $p->get_token){
    if($token->[0] eq 'T'){
        my $text = $token->[1];
        next unless $text =~ /\S/;
        print "[$text]\n";
    }
}