use strict;
use warnings;
use Data::Dumper;

my @vfile = (
   'mein text ist so lang:   Error 123 hier geht der text weiter',
   'mein text ist so lang:   Error 99 hier geht der text weiter'
);

my @errs;

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

print Dumper(\@errs);