#!/usr/bin/perl

my $string = "Processing file /tmp/tmpstream3930.ogg...

New logical stream (#1, serial: 68d43f06): type vorbis
Vorbis headers parsed for stream 1, information follows...
Version: 0
Vendor: Xiph.Org libVorbis I 20050304
Channels: 1
Rate: 8000

Nominal bitrate: 22.400000 kb/s
Upper bitrate not set
Lower bitrate not set
Vorbis stream 1:
        Total data length: 23474 bytes
                Playback length: 0m:08.560s
                        Average bitrate: 21.938318 kb/s
                        Logical stream 1 ended";

$string =~ /\s*Playback\s+length:\s*([0-9.]+)m:([0-9.]+)s\s*/;
print $string;