#!/usr/bin/perl

open (TAGGER,"<./mp3tagger.pl") || die "Fehler beim Öffnen\n";
@lines=<TAGGER>;
close(TAGGER);

open (WRITE,">./mp3tagger_change.pl") || die "Fehler beim Schreiben\n";
foreach (@lines) {
  s/\t/        /g;
  s/  /\t/g;
  print WRITE $_;
}
close (WRITE);