All the Perl that's Practical to Extract and Report
perl -MLWP::Simple -pi.bak -e 's{(http://xrl.us/\w+)}{get("http://metamark.net/api/rest/simple?short_url=$1")||$1}ige'
