use warnings;
use strict;

my %o;
while (<DATA>) {
    $o{$1}=$2 while m/(\S+)=(\S+)/g;
    print "$1 and $2\n";
    
}

__DATA__
name=ant
password=gilly
level=5