#!/usr/bin/perl
use Modern::Perl;
# 934485

my ($name, @names, @scrapings, $scraping);

while ( <DATA> ) {
	$scraping = $_;
	push @scrapings, $scraping;
}

for $scraping(@scrapings) {
	$scraping =~ /(\d\w+   # begin capture, num followed by 1 or more wordchars
                       [. ]*   # charclass of dot or space
                       (?:           # non-capture grouping
                           \w+	     # wordchars
                           [. ]+     # one or more of a literal dot or space
                       )*            # group is OPTIONAL by quantifying it as "0 or more"
                       [\w-]+     # wordchars or hyphens
                       \s*        # zero or more spaces
                       )          # end capture before
                       <\/a>      # close link_renderable and href
                       /x;        # extended format
	if ($1) {
		$name = $1;
		push @names, $name;
	}
}

for $name (@names) {
	say $name;
}

say "\n\t Done";

__DATA__
<li><a href="page.aspx?1ar3xlr29">1Mary Mary QuiteContrary </a></li>
<li><a href="page.aspx?43xlr17">2Sam Samuels</a></li>
<li><a href="page.aspx?3719rlr17qt">3Joe.Bones</a></li>
<li><a href="page.aspx?a=c4bc46eswsdw32fcc">4John.Martines </a></li>
<li><a href="page.aspx?a=0a2b-a99d-3754eb2f5e35">5Mary Jones</a></li>
<li><a href="page.aspx?a=1ef7b100-8dc4-4b40-871c-68b1d0">6Fernando Praderas</a></li>
<li><a href="page.aspx?a=e8ec1d77-ee83-4797-b9c4-7676053a4926"> 7blifstik</a></li>
<li>foobar baz blivitz <a href="page.aspx?a=e8ec1d77" class="b">8Frederick B. Ohlmsted</a> more blah  blah blah and so on ad nauseum....</li>
<li><a href="page.aspx?a=c4bc46eswsdw32fcc">9Ernesto Maria Santiago-Cortez</a></li>

##</code><code>##

1Mary Mary QuiteContrary
2Sam Samuels
3Joe.Bones
4John.Martines
5Mary Jones
6Fernando Praderas
7blifstik
8Frederick B. Ohlmsted
9Ernesto Maria Santiago-Cortez

         Done