if ($string1 =~ /_aktuell_/) { ($string2) = $string1 =~ m/^((?:[^_]+_){2}[^_]+)_/; } else { $string2 = $string1; }