sub encode { my $arg = shift; $arg =~ s/&/&/g $arg =~ s/