#!/usr/bin/perl -w
use strict;

open INFO, qq./tmp/xmms-info. or die;

my %lines;

foreach (<INFO>) {
  if (/^Tunes/) { $lines{choons} = $_ }
  elsif (/^Curr/) { $lines{curr} = $_ }
  elsif (/^Posi/) { $lines{posi} = $_ }
  elsif (/^Titl/) { $lines{titl} = $_ }
  else { next }
} close INFO or die ;
foreach (values %lines) { chop }; 
$lines{choons} =~ s/Tunes in playlist: //;
$lines{curr}   =~ s/Currently playing: //;
$lines{titl}   =~ s/Title: //;

print qq-($lines{curr}/$lines{choons}) $lines{posi} [ $lines{titl} ]\n-
__END__
Tunes in playlist: 2009
Currently playing: 1
Position: 0:00
Title: A*TEENS - Take a chance on me