#!/usr/bin/perl -w
use strict;

$/=undef;
my $data =<DATA>;
$data =~ tr/\n/ /;  #turn \n's into spaces

my (@names) = $data =~  m/<a[^>]*>(.*?)<\/a>/g;

foreach (@names)
{
   print "$_\n";
}

=prints
Jon.Martinez
Mary Jones
Rob Oticus
Joe Blow
=cut


__DATA__
<a href="foo">Jon.Martinez</a><li>gabba, gabba,
hey!</li><a href=bar>Mary
Jones</a><p>Gazebo!</p><a href="baz">Rob Oticus</a><a>Joe Blow</a>