print $data_line
    unless $data_line=~/^[BbLl].*|^_.*|^.*\d\d\d\.\d\d\d.*/;