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