Hatena スタッフ一覧を取るスクリプト＠Perl ワンライナー編

Ruby でワンライナー書いてるんだから Perl もワンライナーで書こうよということで、
「Hatena スタッフ一覧を取るスクリプト」のワンライナー版

perl -MLWP::Simple \

  -e'print join qq{\n}, keys %{{map { $_ => 1 } \

  LWP::Simple::get(q|http://hatenastaff.ring.hatena.ne.jp/rss|) =~ \

  m{http://d\.hatena\.ne\.jp/(.+?)/}g}}'

uniq 取るために強引に anon-hash を作って即 dereference して keys を使うｷﾓさがなんともいえない。