Heres some quick tries at getting to your goal but they are not in PERL.
If you are speaking of doing this task in a PERL script then these may be of no use at all. If you are speaking of command line they could potentially be useful. If you need this done only PERL let us know. Perhaps are you trying to get them into a perl list?
Like I said this is just a starting point. they are not perfect but they could serve to show what kind of output you want. Try them on a command line and reply with specifics about how the output should be changed. The file you speak of is assumed to be named 'file' in the current directory.
Code:
awk '/[0-9]*\./ { for (col = 1; col <= NF; col++) printf"%3s\n", $col; printf"\n\n"}' fasss | grep '[0-9]\.'
Code:
grep -i '[0-9]\.' file | sed -e 's/[a-zA-Z\\(\)]//g'
This one could be a winner:
Code:
grep -i '[0-9]\.' fasss | sed -e 's/[a-zA-Z\\(\)]//g' | sed -e 's/[0-9]*\..*/&/' | sed -e 's/[0-9]* //'
This one is the least directly useful but I came up with it and it can be used for hints on how this stuff works. it could be extended out to list them all one by one.
Code:
awk '/[0-9]*\./ { printf"%3s", ($1); printf" %3s", ($2); printf"\n"}' file
Let us know if you have any questions.
