User manual

}
$numName = $numName . $char;
}
#insert dashes into phone numbers
for($a = 2; $a < 17; $a++)
{
if (length($split[$a]) == 10)
{
#$split[3] = substr( $split[3], 0, 3);
$split[$a] = (substr( $split[$a], 0, 3) . "-" .
substr( $split[$a], 3, 3) . "-" . substr( $split[$a],
6));
}
elsif(length($split[$a]) == 11)
{
$split[$a] = ( substr( $split[$a], 0, 1) . "-" .
substr( $split[$a], 2, 3) . "-" . substr(
$split[$a], 4, 3) . "-" . substr( $split[$a], 7));
}
}
$split[1] = $numName;
$newLine = join(",",@split);
print $newLine . "\n";
$dumline = $newline;
print NEWFILE $newLine;
}
close NEWFILE;
58