$string = qq~<tag1>text1</tag1><tag1>text2</tag1>~;
if ($string =~ m|<tag1>(.+)</tag1>|) {
  print "VIEL: $1\n";
}
if ($string =~ m|<tag1>(.+?)</tag1>|) {
  print "WENIG: $1\n";
}