my $data_fix = "00"; while (<>) { my($data1,$data2,$data3,$data4,$data5) = split(/:/); chomp($data5); $data5 .= $data_fix; $data_line = $data1 . ":" . $data2 . "00" . ":" . $data3 . ":" . $data4 . ":" . $data5 . "\n"; print $data_line; }