ok(sub{$str =~ /abc/}, "string matches");

##</code><code>##

ok($str =~ /abc/, "string matches");

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
(sub {my $str = "aaa"; $str =~ m/abc/}) ? print "sub ok\n" : print "sub fail\n";
get_return() ? print "return ok\n" : print "return fail\n";
sub get_return
{
    my $str = "aaa";
    $str =~ m/abc/;
}

##</code><code>##

sub ok
return fail