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