use strict;
use warnings;

print grep({"" =~ /$_/} (""))."\n";

"foo" =~ /foo/;

print grep({"" =~ /$_/} (""))."\n";

##</code><code>##

1
0