$ perl -e 'print "@$$\n";'

$ perl -e 'print "@$undefined_variable\n";'

$ perl -e 'print "@$]\n";'
]
$ perl -e 'print "@$(\n";'
(