local $/ = '';  # Paragraph mode.

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