open(FILE, "<$file") || die ("Can't open $file: $!");
while(<FILE>) {
   print $1 if ($_ =~ /^hi==(.*)/);
}
close FILE;