my @file = (
    '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 @fehler;
for (@file) {
    s/(Error \d+)//g;
    push @fehler, $1;
}

print "$_\n" for @file;
print "$_\n" for @fehler;