my @results = m@<a class=l href=\"(.*?)\">@gi;

##</code><code>##

my @results
  = map { $_->url }
    grep { $_->attrs->{class} eq '1' }
    $mech->find_all_links(tag=>'a')
    ;