Greetings all,
try escaping your brackets
my ($x, $y) = m/^\/MediaBox \[ \S+ \S+ (\S+) (\S+) \]$/;
Just a thought,
-InjunJoel
"I do not feel obliged to believe that the same God who endowed us with sense, reason and intellect has intended us to forego their use." -Galileo