... sub escape_char { return join '', @URI::Escape::escapes{$_[0] =~ /(\C)/g}; } 1;