shoorick

1. Аккуратно разобрать полученный XML (на CPAN есть всякие модули).
2. Взять с полки книжку, вспомнить про XSLT и сделать именно на нём. Можно даже без перла.
3. Тупо выдрать нужное регекспами.

while ( $content =~ s{<item>(.+?)</item>}{}s ) {
    local $_ = $1;
    my ( $title ) = m{<title>(.+?)( / .+?)?</title>};
    my ( $link  ) = m{<link>(.+?)</link>};
    my ( $src   ) = m{<media:thumbnail\s+url="(.+?)"};

    print qq{<a href="$link"><img src="$src" alt="$title" title="$title"></a> };
}

Послушав мнение коллег, решил что для преобразований XML → (X)HTML лучше всего подойдёт XSLT. Но чем преобразовывать? Первый попавшийся учебник рассказывал об интерфейсах на разных языках, но перла среди них на было.

Однако, перловый программер про CPAN вспоминает быстро. Недолго думая, нашёл XML::XSLT, в мане на который есть пример, подлежащий весьма небольшой обработке напильником надфилем до работоспособного состояния:

#!/usr/bin/perl -w

use strict;
use XML::XSLT;

die qq{XML Transformer\nUsage:\n\t$0 xml-file xslt-file\n}
    if ($#ARGV < 1);

my $xslt = XML::XSLT->new($ARGV[1], warnings => 1);

$xslt->transform($ARGV[0]);
print $xslt->toString;

$xslt->dispose();

upd/18:15: ковыряние показало непрограммерский путь:

$ xsltproc xslt-file xml-file