Select Code to Download

$ perl -ple ' $_ = eval "sub { /$_/ }" ? "OK\n" : "$@" '
a
...

a()
OK

$ perl -ple ' $_ = eval "sub { /$_/ }" ? "OK\n" : "$@" '
a[$]
OK

$ perl -e ' "abc" =~ /a[$]/ '
Unmatched [ in regex; marked by <-- HERE in m/a[ <-- HERE 5.010000/ at
+ -e line 1.

$ perl -e 'sub {"aaa" =~ /a[$]/}'
$ perl -e '"aaa" =~ /a[$]/'
Unmatched [ in regex; marked by <-- HERE in m/a[ <-- HERE 5.010000/ at
+ -e line 1.
$ perl -ce '"aaa" =~ /a[$]/'
-e syntax OK

perl -E 'say q(a$) =~ q(a[$]) '
1