###########################################################################################
sub urlEncode {
    my ($string) = @_;
    $string =~ s/(\W)/"%" . unpack("H2", $1)/ge;
    #$string# =~ tr/.//;
    return $string;
 }


$isogreek 		= $cgi->param('greek');
$utf8	  		= decode("iso-8859-7", $isogreek);
$ucs2               = encode("UCS-2BE", $utf8);
$URLucs2         = urlEncode($ucs2);

print $URLucs2;  
###########################################################################################