my $price = sprintf "£%d.%02d", $pounds||0, $pence||0;