Help for this page
read.txt >s1 ... 34 23 43 45 34 43 45 7 45 43 12 34 32 56 43 >s3 34 23 43 45 34 43 45 7 45 43 12 34 32 56 43
#!/usr/bin/perl open(FH1,"read.txt"); ... print (join(' ',@num[@keep]),"\n"); }