Select Code to Download

open(INPUT,'<',$filename) or die $!;

open(BSC,'>','BSC') or die $!;

for my $searchline(<INPUT>) {
    if( $searchline =~ /20041204/ ) {
...
        }
    }
}