RE: \r

[Govinderjit Dhinsa]

        What is the code please to get, after field 6;
        \r (carriage return)

        I tried this, but no luck;
        $fields[6] =~ s\r//;

Any help would be much appreciated!!!
Thanks,
GD

        #####################################################
        PROGRAM:

        #!/path/to/perl -w
        use strict;

        open CSV,"<vt04-07-01.csv" or die "Cannot open vt04-07-01.csv",$!;
        open NEW,">vt04-07-01.csv-changed";
        while (<CSV>){
                chomp;

                my @fields = split ',';

                splice @fields, 2, 1;

                splice @fields, 5, 1;

                $fields[6] =~ s\r//;

                for (@fields) { print NEW "$_" }
        }
        close CSV;
        close NEW;
        exit;

        [End of file]
        ########################################################