> Thank you for your reply. I made the changes you suggested, however some
> of them did not work, these where the following results;
>
> # while (defined($line=<ISCD>)){ *produced only line 1*
> # while(<ISCD>){ *produced NO lines*
> # print SORTCODE @fields[0..33,290..299];
> close iscd;
> close sortcode;
> exit; *produced only line 1*
> ##############################################################
> For some reason it seems that the programme is not reconising the
> "\r carrage return" or "\n new line", at the end of each line for the
> input file!
> OR not looping the file!
>
> <snip> of new program
> ##############################################################
> open ISCD,"<CALL_SUMMARY_CHANGES4_5.HADES;21" or die "Cannot open
> CALL_SUMMARY_CHANGES4_5.HADES;21",$!;
> open NEW,">aaaa.pl";
> while (defined($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]
> ##############################################################
>
> >I have a input file, below is a few *LINES* of example of the input file:
>
> > 168127407932117187M000001080m200107035eN/A
> > 168148007947033647M200107015m2100000000n/a
> > 168149807947023347M000200107m0000034500n/a
> > 168150607947058268M200107015y13 00000000n/a
>