#!/perl -w
#
use strict;

my %pairs;

open IN, "datei.dat";
  while (my$line = <IN>) {
    chomp $line;
    next if $line =~ /^\s*$/;

    my($key,$val) = split /\s*=\s*/,$line;
    $pairs{$key} = $val;
  }
close IN;

print "A0: $pairs{A0}\n";