urlencode command line

[Merkzettel]

#!/usr/bin/perl -T
#http://glennf.com/writing/hexadecimal.url.encoding.html
use strict;
use warnings;
use diagnostics;

undef $/;
$_ = <>;
s/([\W])/"%".uc(sprintf("%2.2x", ord($1)))/eg;
print;