#!/usr/bin/perl use strict; use warnings; while () { if (m~]+>(.+)~) { my $found = $1; $found =~ s~ ~~g; $found =~ s~]*>~~g; $found =~ s~~~g; $found =~ s~^\s+~~; $found =~ s~\s+$~~; print "gefunden: [$found]\n"; } } __DATA__ Testseite
  Aktivität    Doktor
  Land    Deutschland   ...