while( ... ) {
    unless( $line =~ /\A\d+\.\d+-\d+\.\d+\s+\d+\s+\d+\z/ ) {
        next;
    }
}