#!perl
use strict;
# print all the punctuation vars
print <<END;
\$& $&
\$` $`
\$' $'
\$+ $+
\$. tested elsewhere
\$/ $/
\$| $|
\$, $,
\$\ $\
\$" $"
\$; $;
\$% $%
\$= $=
\$- TODO
\$~ $~
\$^ $^
\$: $:
\$^L $^L
\$? $?
\$! $!
\$^E $^E
\$@ $@
\$\$ tested elsewhere
\$< $<
\$> $>
\$( $(
\$) $)
\$0 $0
\$] $]
\$^A $^A
\$^C $^C
\$^D $^D
\$^F hightly dependant on weather
\$^I $^I
\$^P $^P
\$^R $^R
\$^S can't affect
\$^T can't test here
\$^W $^W
\$^X varies wildly
\$^O $^O
END