#! /usr/local/bin/perl

while (<>) {
	chop;
	s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/eg;
	print;
	print "\n";
}