use strict;
use warnings;
use HTML::TreeBuilder;

my $str = do {local $/; <DATA>};
my $tree = HTML::TreeBuilder->new;

$tree->parse ($str);

my @jobs;

for my $para ($tree->find ('p')) {
    my @class = $para->look_down ('class', 'jobname');
    my @names = $para->look_down ('name', 'em');
    my @offices = $para->look_down ('name', 'offices');
    next unless @class && @names && @offices;
    
    my $job = $class[0]->as_text ();;
    
    $job .= ': ' . join '; ', map {$_->as_text ()} @names;
    $job .= ' (' . join (', ', map {$_->as_text ()} @offices) . ')';
    push @jobs, $job;
}

print join "\n", @jobs;

__DATA__
<p><b><span class="jobname">Sandbagger, Level 2</span>  
<span class="jobserial">(19000)</span><br />
Current members:<br />
<span name='em'>Fred</span><span name='em'>Wilma</span><br />
<span name='offices'>Erewon</span>
</p>

<p><b><span class="jobname">Accounting Assistant, Level 2</span>  
<span class="jobserial">(19203)</span><br />
Current members:<br />
<span name='em'>Plow, Elliot</span><span name='em'>Wang, Susan</span><br />
<span name='offices'>Huston</span>
</p>
<blockquote>
Job descriptions here.
This block quoted text contains a job description and it what I am really looking to recover.
</blockquote>
<blockquote><a href="#top">Go to the top of this page</a>.</blockquote>
<blockquote><a href='companyHR.html'>Check for open positions now!</a></blockquote>