[問題] perl的elsif問題

[herolee (hero)]

my $str='haha_foo_bar';

if($str =~ /haha.*foo.*bar/)
{
        print "Match haha.*foo.*bar\n"
}
elsif($str =~ /haha.*bar/)
{
        print "Match haha.*bar\n";
}
else
{
        print "Match .*bar\n";
}

代碼執行輸出
Match haha.*foo.*bar

但elsif那個為什麼沒執行呢﹖

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 147.243.236.28
推 AlanSung:被 if () 拿去了就不會 elsif