cat blockextract.txt | perl blockextract.pl