awk?

[ToddAndMargo]

Hi All,

How to I translate this to Perl 6?   I am looking to be able
to dig out the fourth (or any) data point.

<code>
#!bin/bash
$x=$(echo "total kB          180448    2980     112" | awk '{print $4}')
echo $x
</code>

2980


Many thanks,
-T