use warnings;
use strict;

use Inline::Files;
use Data::Dumper;

my %set = map { chomp; $_ => undef } <SEARCHFILE>;

while (<DATA>) {
    if ( my ( $key, $value ) = /^(.+)=(.+)\s+</ ) {
        if ( exists $set{$key} ) {
            push @{ $set{$key} }, $value;
        }
    }
}

print Dumper \%set;

__SEARCHFILE__
revision
version
type
__DATA__
revision=0.0.1.1 <--newline at end of line
version=0.0.1 <--newline at end of line
type=A <--newline at end of line
key1=64 characters <--newline at end of line
key2=32 character <--search will stop before going to newline
revision=0.0.2.1 <--newline at end of line
version=0.0.2 <--newline at end of line
type=B <--newline at end of line
key1=64 characters <--newline at end of line
key2=32 character <--search will stop before going to newline
revision=0.0.3.1 <--newline at end of line
version=0.0.3 <--newline at end of line
type=C <--newline at end of line
key1=64 characters <--newline at end of line
key2=32 character <--search will stop before going to newline
revision=0.0.4.1 <--newline at end of line