Select Code to Download

$_ = "/MediaBox [ 0 0 614.39999 792 ]";
my ($x, $y) = m/^\/MediaBox \[ \S+ \S+ (\S+) (\S+) \]$/;
print "$x $y\n";