while (<IN>){
        if (/^call started/) {
              s/^call.*total/Modem Line 0\/$i : /;
              print OUT "$_\n";
              $i++;
        }
    }