print("$_\n") for ( split(/ /, $string) )[0,3];