use Data::Dumper qw/Dumper/; foreach my $line ( @meineDaten ) { my @felder = split(m/[\:\-\s\;]/, $line); print Dumper(\@felder); }