$ perl -Mstrict -Mwarnings -E 'use URI::Escape; my ($u, $p) = (q{W$X}, q{Y@Z}); say for uri_escape($u), uri_escape($p)'
W%24X
Y%40Z