### FALSCH
$zeile =~ /...(...).../;
if ($1 ne "") {
    # hier steht evtl. etwas altes in $1
}

### RICHTIG 
if ($zeile =~ /...(...).../) {
   # jetzt kann man $1 etc. verwenden
}