perl -ne 'print $1 if /<(.*)>/ '
ってやればいいんだよ。