my($first, $second, $third) = (split /\n/, $string)[0,2,4];