[...]

while (defined (my $line = shift @vfile)) {
   push @errs, $line =~ /(Error \d+)/;
   # fuer mehrere Fehlermeldungen in einer Zeile
   # push @errs, $_ for $line =~ /(Error \d+)/g;
}

[...]