my $format = new Format (
  ws => { col >= 70 ? "\n" : " " },
  currency => { sprintf("%.2f", $currency) },
  date => {sprintf("%04d-%02d-%02d", @$date{qw/year month day/})},
);

$text =~ /<grammar.rule>/;

$format.output($0; grammar=>"grammar.rule", fh=>$*STDOUT)