#!/usr/bin/perl

use strict;

while (<DATA>) {
    my $val = (split /=/)[1];
    print $val;
}

__DATA__
a.b.c.d=10
a.b.e.f=9999
a.f.g.h=456