print ((split ',' , $foo)[2]));
print "\n";