in reply to skip blank lines that may contain from time to time some ";"

while(my $line = <$FILE>){
    next if $line =~ /^\s*(?:;\s*)*$/;
    ...
}

[download]

In Section Seekers of Perl Wisdom