rendered paste body#!/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;