my $zeile = 'V001#62102200100011#6#210#2#20#01#0001#1#06#2016#01#Denis                                             #19570103#20160601#99999999#Koch                                              #                                                  #Berlin                                             #0# # #000000000000191022#000000000000149498#
';
my @daten_zeile = split /#/, $zeile;

# Daten des ersten Felds
my $daten_erstes = $daten_zeile[0];