Select Code to Download

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

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

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