set bar=`echo $foo | awk '{print $5}' | cut -c1-4`

##</code><code>##

	$bar=`echo $foo | awk '{print \$5}' | cut -c1-4`

##</code><code>##

	$bar = substr((split($foo))[4], 0, 4);