> Here is two data examples from the input file
> (each data is normally streachted along ONE LINE) :
> (I need the three data types that are    'underlined' 
> (ID.NUMBER, BranchNAME,  ADDRESS).

I don't see anything that is 'underlined'. So I can't
tell what's the id number etc. I assume the address
is the bit at the end, so I'll work toward trying to grab
that.

If one assumes one can split out fields wherever 3
or more consecutive spaces occur, then

    #!/usr/bin/perl -w

    use strict;

    while (<>) {

        @fields = split /    */;

        for (my $i = -1; $i > -9; --$i) {

            print $fields[$i] . "\n";

        }

    }
    
might get you started.

Reply via email to