#!/usr/bin/perl use strict; use warnings; my $data; {     local $/;       # Slurp-Mode     $data = ; } if ( $data =~ m~]*id="Historybar1_lbHistBar"[^>]*>                 (                  (?:                   ]*>(?:(?!).)+                   |                   (?!).                  )+                 )                ~xs    ) {     print "Treffer:\n$1\n"; } else {     print "Kein Treffer.\n"; } _ _ DATA _ _

Dies ist ein Auszug aus einem möglichen HTML-Dokument.

xyz.com / Automotive / Products & solutions / Acoustic know-how

Ein weiterer dummer Testtext.