The while loop can be written simply as:

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

Also, you may want to look at WWW::Mechanize's find_all_links method (returns WWW::Mechanize::Link objects) so that you're not parsing html yourself ..

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