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