for my $searchline(<INPUT>) {
    if( $searchline =~ /20041204/ ) {
        if( $searchline =~ /^BSC/) {
            print BSC $searchline;
        }
    }
}