my $string = "Maschine1_Temperatur_hinten_rechts";

my ($first_part, $last_part) = split /_/, $string, 2;