my $nowplaying = "";

my $parser = XML::Rules->new(
    stripspaces => 7,
    rules => {
        info => sub {
            $nowplaying = $_[1]->{_content} 
            if $_[1]->{name} eq 'now_playing';
            return ;
        }
    }
);
$parser->parse($streaminfo);

print $nowplaying;