#! /usr/bin/env perl

# This code is in the public domain
# Written by Robbert Haarman

use warnings;

sub urlescape {
	$_[0] =~ s/([^0-9A-Za-z_\-.()\/:@~])/sprintf("%%%0.2X", ord($1))/eg;
	$_[0]
}

print urlescape(join(' ', @ARGV)) . "\n";