#!/usr/bin/perl -w
#use strict;

my $resultnow='C:/Users/user/Desktop/solution.dat';
open (FILE, '<', $resultnow) or die "$resultnow File not found : $!";
my @lines = <FILE>;

my $valuenow= $lines[9];


my @va=split(' ',$valuenow);
print $va[3];