$envUpr = qx[echo $envUpr | cut -c3-6]; # string
$envUpr = qx[cut -c3-6 $envUpr]; # file
##</code><code>##

$envUpr = substr( $envUpr, 2, 5 ); # offsets from 0 not 1