#!/usr/bin/perl

use strict;
use warnings;

my $html = qq~<a href="http://test.de">Test</a><br />Jede Menge
Text<a class="verweis" href="#">Noch ein Test</a>~;

my @links = $html =~ m~<a.*?href="([^"]+)"[^>]*>(.*?)</a>~isg;
for(my $i = 0; $i < scalar(@links); $i +=2){
  print $links[$i],": ",$links[$i+1],"\n";
}