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

I have no idea what $& has to do with anything. Or regular expressions, really, but I did end up using one.