perl -F-\|@\|~ -anE 'say for @F; push @x, {TIME=>$F[3],REC=>$_,PIECES=>[@F]}}{for (@x){next unless  $_->{TIME} ge "06" and $_->{TIME} le "18";say  qq(do someting with $_->{REC}) }' <Your file name>