open FH,"<data_input" or die "Can't open file : $!\n";
my @line;
while ( <FH> )
{
    if ( /(obj[1-9]*)/ )
    {
        my $line = $'; #for getting other than obj column in the line
        my $val=0;
        $val += split(' ',$line);
        print $val;
    }
}