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

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::Simple->new(\$html);
while(my $token = $p->get_token){
  if($token->is_text){
  my $text = $token->return_text;
  next unless $text =~ /\S/;
  print "[$text]\n";
  }
}