if ($id eq "") {
    $id=sprintf("%-*s",8,$prev_id);
}
else {
    $id=sprintf("%-*s",8,$prev_id);
}

##</code><code>##

$a=index($sub_line,'|',1);
$b=index($sub_line,'|',8);
$c=index($sub_line,'|',20);

##</code><code>##

$a=index($sub_line,'|');
$b=index($sub_line,'|', $a+1);
$c=index($sub_line,'|', $b+1);