in reply to Re^6: deleting special lines from files
in thread deleting special lines from files

Finally I got it. It is :
my @data = grep { !/\S+;;/ } <SCAN>

In Section Seekers of Perl Wisdom