Help for this page
0] # cat test_range while( $text=<DATA> ){ ... 777 888 999
[0] # perl test_range 1 aaa ... 17 999 ========= End of the fragment detected at 6.