(sub {my $str = "aaa"; $str =~ m/abc/})->() ? print "sub ok\n" : print "sub fail\n";
#sub fail