Shell Programming and Scripting

30004SCT TARTENPION                        00003FONTEN                                30008*E GOUDYEAR DODO   1 Street Bigggest  30004OHOHOHITSALONGLINE                    ...

30004;SCT TARTENPION     ;                   ;
00003;FONTEN             ;                   ;
30008;*E GOUDYEAR DODO   ;1 Street Bigggest  ;
30004;OHOHOHITSALONGLINE ;                   ;
...

$
$ cat data.txt
30004SCT TARTENPION                        00003FONTEN                                30008*E GOUDYEAR DODO   1 Street Bigggest  30004OHOHOHITSALONGLINE
$
$ perl -ne 'chomp;
>           while(/(.)/g){
>             $i++; print $1; $x=$i%43;
>             if ($x == 0){print ";\n"}
>             elsif ($x==5 or $x==24){print ";"}
>           }' data.txt
30004;SCT TARTENPION     ;                   ;
00003;FONTEN             ;                   ;
30008;*E GOUDYEAR DODO   ;1 Street Bigggest  ;
30004;OHOHOHITSALONGLINE ;                   ;
$
$

perl -ne 'chomp;
    while(/(.)/g){
       $i++; print $1; $x=$i%900;
       if ($x == 0){print "\n"}
       elsif ($x==5 or $x==37 or $x==42 or $x==74 or $x==79 or $x==111 or $x==116 or $x==148 or $x==153 or $x==185 or $x==187 or $x==192 or $x==224 or $x==256 or $x==288 or $x==320 or $x==333 or $x==335 or $x==340 or $x==372 or $x==404 or $x==436 or $x==468 or $x==475 or $x==480 or $x==487 or $x==503 or $x==504 or $x==509 or $x==541 or $x==573 or $x==605 or $x==637 or $x==642 or $x==655 or $x==662 or $x==694 or $x==726 or $x==758 or $x==790 or $x==795 or $x==808 or $x==815 or $x==828 or $x==830 or $x==835 or $x==840 or $x==845 or $x==847 or $x==852 or $x==861 or $x==865 or $x==870 or $x==874 or $x==878 or $x==882){print ";"}
       }' $1 | sed -e 's/[0-2]             $//' > $1_finish