my $datei0 = "/proc/cpuinfo";
open (my $out_fh, ">>", "datei.txt") or die ("Error : $! \n");
open (my $in_fh, "<", datei0) or die ("Error : $! \n");
my $i=0;
while (my $zeile = <$in_fh>) {
next if $zeile =~ m/\b^processor\b/i;
{
print $out_fh "$zeile \n";}
$i++;
chomp ($zeile);
print $out_fh "$zeile \n";
}
close ($in_fh) or die ("Error .....$datei0: $! \n");
close ($out_fh) or die ("Error .....von 'datei.txt': $! \n");
exit (0);