local $/ = '';  # Paragraph mode.

while (<DATA>) {
   my ($ar   ) = m|Audio.*?(\d+) kb/s|;
   my ($x, $y) = m|(?!0)(\d+)x(\d+)|;
   my ($vr   ) = m|Video.*?(\d+) kb/s|;
   my ($fps  ) = m|(\d+(?:\.\d+)?) fps|;
   Dump [$ar, $x, $y, $vr, $fps];
}