while (<FILE>)
{
        $line = $_;
        chomp ($line);

        @array = ();
        @array = split (/\s+/, $line);   
	print $array[8];
}