Shell Programming and Scripting

#!/usr/bin/perl
open I, "$ARGV[0]";
@x=<I>;
$i=0;
for (@x){
  s/ +$//;
  $t=$_;
  @s=split / +/;
  if ($#s==12){
    $i=1;
    s/([^ ]+ +EUR)1([SB]\d+ +)[^ ]+( +)1/$1$2     ${3}0/;
    /([^ ]+ +){5}(\d+)-(\d+)-(\d+) (\d+)(:\d+:\d+)/;
    $d="$2$3$4";
    $h2=sprintf "%02d", ($5-1);
    $date2="$d-$h2$6";
    /(\d+)$/;
    $h=int($1/3600000000);
    $m=int(60*($1/3600000000-$h));
    $sek=int(60*(60*($1/3600000000-$h)-$m));
    $time=sprintf "%02d:%02d:%02d",$h,$m,$sek;
    $date1=$d . "-" . $time;
    s/(([^ ]+ +){5})\d+-\d+-\d+ \d+:\d+:\d+/$1$date1/;
    $t=~s/(([^ ]+ +){6})\d+-\d+-\d+ \d+:\d+:\d+/$1$date2/;
    $t=~s/(([^ ]+ +){3}\d{11})(\d{3})\.\d{15}(\d{2})/${1}000.000${4}0000${3}00000/;
    $s.=$_;
    $q="$t$q";
  } elsif ($i) {
    $i=0;
    $s.=$q;
    $q="";
    $s.=$t;
  } else {
    $s.=$t;
  }
}
$s.=$q if $i;
print $s;