Ein regulärer Ausdruck will mal wieder nicht

[Eternius]

Hi,

also ich persönlich finde da regexps schon eleganter, da für eine Aufgabe ein Modul (für mich) overkill ist.

  
#!/usr/bin/perl  
use strict;  
use warnings;  
  
  my $s='...<A HREF="url.de" ALT="superkingdom">Eukaryota</A>...<a ALT="superkingdom" href="anderer_url.de" TITLE="superkingdom">Bacteria</a>';  
  
  foreach ($s=~/<a.*?[^>]>(.*?)<\/a>/gi){  
    print $_;  
  }  

gruss