while (<DATA>) {
  print "Zeile: ", $., "\tName: ", $1,"\n" if m#<b>\s?Name:\s?(\w+)\s?</b>#ig;
}


<b> Name: Hans </b>
bla bla
<b> Name: Hans </b>
bla