pidgin address lookup one-liner in bash function

msnlookup is a function
msnlookup ()
{
    cat ~/.purple/blist.xml | perl -e 'print for sort map {m{>(.*)<}&&$1.qq(\n)} grep {eval {my $line=$_; { $line=~m{$_} && return 1 for @ARGV; 0}}} <STDIN>' $* | uniq
}