#! /usr/bin/perl

my $a = "foo";
if ( $a =~ m/aa/ ) {
  print "hello";
 } elsif ( nonexistant() ) {
  print "hello";
 } else { }