Anyone know why I get ^H (escape character?) inserted into the output of this script infront of the 0\1 replacement on a linux machine, it works a treat under macperl? --------------------- #!/usr/bin/perl print "This script takes a CSV file and normalizes the date to 03/12/87. \nWhat file do you want to convert? "; chomp ($filename = <STDIN>); open (THATFILE, "$filename") || die "cannot open $filename: $!"; open (OTHERFILE, ">output.xls") || die "cannot open output.xls"; while (<THATFILE>) { if (s/\b(\d)(\d\d)(19)(\d\d)/\b0\1\/\2\/\4,/g) { } else { (s/\b(\d\d)(\d\d)(19)(\d\d)/\b\1\/\2\/\4/g) } print OTHERFILE $_; --------------------- any optimised suggestions also appreciated, the output file will be imported to Excel on a windows machine -------------------------------------------------------------------- Richard Allen: <rallen@easynet.co.uk> "The illiterate of the 21st century will not be those who cannot read and write but those who cannot learn, unlearn and relearn." - Alvin Toffler -------------------------------------------------------------------- ==== Want to unsubscribe from this list? ==== Send mail with body "unsubscribe" to macperl-anyperl-request@macperl.org