my $string = "Maschine1_Temperatur_hinten_rechts";

my ($first_part, @parts) = split /\_/, $string;