You're in luck. I was playing with Pod::Parser at the moment, so I whipped up Pod::Stripper to do exactly that.

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"