RE: \r

[Govinderjit Dhinsa]

        I have a input file which is a fixed line file (all along one line,
no " \n or \r ").
        ##################################################
        Q. How would I separate each data type, to do the following;

        At  @fields 490, insert \r (carriage return).

So I want the input file, to look like below, is a few *LINES* of example of
the input file after inserting \r:

168127407932117187M000001080m200107035eN/A
168148007947033647M200107015m2100000000n/a
168149807947023347M000200107m0000034500n/a
168150607947058268M200107015y13 00000000n/a
        ##################################################

        I want to do this so that the while loop does not stop after the
first selection, and continues looping, for each line (once they are
separated)!

        As the problem being at the moment is that the while loop stops at
the first selection!
         ##################################################
        <snip>
        ###################################################
        open ISCD,"<CALL_SUMMARY_CHANGES4_5.HADES;21" or die "Cannot open
CALL_SUMMARY_CHANGES4_5.HADES;21",$!;
        open NEW,">aaaa.pl";
        while($line=<ISCD>){
                chomp $line;
                @fields = split //, $line;
                printf NEW '%1.1s' x 44, @fields[0..33,290..299];
        }
        close ISCD;
        close NEW;
        exit;
        [End of file]
        ##################################################

        Any help would be much appreciated!

        Kind Regards,
        GD