while (<NEW_HIST>){
                /^(\w{3}\s+\w{3}\s+\d{1,2})/;
                my $pass_down_date = $1
                if (/$tool/){
                        print "$pass_down_date";
                        $print_checker = 1;
                }
                if (/$stop/){
                        $print_checker = 0;
                }
		if ($print_checker){
			print "$_ <br>\n";
		}
                            
 }