( zeller | 2011. 02. 15., k – 16:17 )

Nincs mit, de mert Perl-t kértél, hát az is van :-)

$i=1;
while(<>){
  chomp;
  /(\w+) /;
  $darab=$1;
  s/^ *$1//;
  s/^\ //;
  printf "%04d;%08d;%s\n", $i, $darab, $_;
  $i++;
}