sub aaa {
  my $s = '';   
  return $s;
}

if ( $bb = aaa() ) {
  print "TRUE
";
} else {
  print "FALSE
";
}