#!/usr/bin/perl -i -n

BEGIN {
  $resize_factor = 1.17;
}

if (/^(%%DocumentMedia: \S+ |%%BoundingBox: \d+ \d+ )(\d+) (\d+)(.*?)$/i or /^()(\d+) (\d+)( \S+ pdfSetup)$/i) {
  printf("%s%d %d%s\n", $1, $resize_factor*$3, $resize_factor*$2, $4);
} else {
  print;
}