#!/usr/bin/perl
for (@ARGV) {
	if (m{[^\w-=%+/:@]}s) {
		s/'/'\\''/sg;
		$_="'$_'";
	}
}
print join ' ', @ARGV;