#!/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/;
}