unshortr url submit bookmarklet

unshorten_bookmarklet.js

#!/usr/bin/perl
local$/;$_='javascript:'.<DATA>;$_=~s/\) \{\n/){\n/g;$_=~s/\n\s*//g;print;
__DATA__
USSw=open('','unshorten_url_submit','width=400,height=200,scrollbars,resizable,menubar');
OSUl=document.links;
with(USSw.document) {
    write('<base target=_self><p>Ushorten Bookmarklet has ');
    if(OSUl.length>0) {
        write('found the following URLs. Click on any of these to submit to Unshorten delvelopers.</p>');
        for(USi=0;USi<OSUl.length;USi++) {
        if(OSUl[USi].toString().substr(0,4)=='http') {
            write(OSUl[USi].toString().link('http://unshortr.hsbp.org/submit/?'+OSUl[USi]));
            if(OSUl[USi].text.trim().length>0) {
                write(' ('+OSUl[USi].text.trim().replace(/[<>]/g, function(match) {
                    if(match==='<')
                        return'&lt;'
                    else
                        return'&gt;';
                    })+')')
                }
                write('<br>')
            }
        }
    } else
        write('not found any usable URLs.');
    void(close())
}