use strict;
use warnings;

$/=undef;

while (my $line = <DATA>) {
    for ($line =~ m/<a[^>]*>(.*?)<\/a>/gs) {
        print "Name '$_'\n";
    }
}

__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>

##</code><code>##

$ perl foo.pl 1
Name 'Jon.Martinez'
Name 'Mary
Jones'
Name 'Rob Oticus'
Name 'Joe Blow'