Help for this page
while (<IN>) { tr/,/|/; print OUT; }
$string1 = $var7; substr($string1, 24) = "H:\"; $string2 = substr($string1,25,2); $string3 = substr($string1,-13); $finstring = $string1.$string2.$string3;