Help for this page
010.231.000.049,41145,010.231.000.049,1363,CDU01V43 010.231.000.050,20,010.116.223.024,2803,ZVC629
while (<STDIN>) { chomp; ... s/\.0([^\.])/.$1/g; print $_ . "\n"; }