sub fn1
{
    my ($fh, $ucsearch) = @_;
    my $count           = 0;

    while (my $record = <$fh>)
    {
        next unless uc($record) =~ /$ucsearch/;
        print $record;
        $count++;
    }

    return $count;
}