$foo = ($foo & 112) >> 4;

##</code><code>##

$price /= 100; # convert from pence to pounds
...
$time += 23 * 3600 # because we're changing timezone