waterfall of elsifs

if ($givens == 0) {
     &cprint (32,"DEBUG","U haz no message triggered!") if ($debug);
       if ($summoner =~ /^(Firefly|Hoshii_Miki)/) {
         print $sock "PRIVMSG $channel :No more \x02\x0309Afuu\x0Fs for $ou YOU, $summoner!\r\n";
        } elsif ($summoner =~ /^ShijouTakane/) {
           print $sock "PRIVMSG $channel :No more \x02\x0313Takanya\x0Fs for $ou YOU, $summoner!\r\n";
          } elsif ($summoner =~ /^(Mish|Skyra)/) {
             print $sock "PRIVMSG $channel :No more \x02\x0302Chihya\x0Fs for $ou YOU, $summoner!\r\n";
            } elsif ($summoner =~ /^(TakatsukiYayoi|KaaiYuki)/) {
               print $sock "PRIVMSG $channel :No more \x02\x0307Yayo\x0Fs for $ou YOU, $summoner!\r\n";
              } elsif ($summoner =~ /^(Aieon|AmamiHaruka|Tsutsukakushi\|Tsukiko|NakamuraEriko)/) {
                 print $sock "PRIVMSG $channel :No more \x02\x0304Harukasan\x0Fs for $ou YOU, $summoner! (Why would you want a \x02\x0304Harukasan\x0F, anyway?)\r\n";
                } elsif ($summoner =~ /^Onigiri|Azu-cat/) {
                   print $sock "PRIVMSG $channel :No more \x02\x0310Chibiki\x0Fs for $ou YOU, $summoner!\r\n";
                  } elsif ($summoner =~ /^(Ojii-dono|HentaiOjii)/) {
                     print $sock "PRIVMSG $channel :Oooh, tough luck, $summoner\; I just ran out of Puchidols. Here\'s " . ["an \x02\x0309Ayesha\x02\x03","a \x02\x0305Recette\x02\x03"]->[&eggroll(1)] . " for your trouble.\r\n";
                    } elsif ($summoner =~ /^KamiyamaKiriko|^HagiwaraYukiho/) {
                       print $sock "PRIVMSG $channel :No more \x02\x0311Yukipo\x0Fs for $ou YOU, $summoner!\r\n";
              } else {
                 print $sock "PRIVMSG $channel :You thought you could have a Puchidol right now, $summonernm? \x02\x0304No such luck!\r\n";
                }
     nanosleep(&nss(1));
     print $sock "NOTICE $summoner :But not to worry, $summoner, you still have \x02$UStats[2]\x02 $ihaz.\r\n" unless ($UStats[2] == 0);
    } else {
      &cprint (32,"DEBUG","Summoning message triggered!") if ($debug);
      print $sock "PRIVMSG $channel :\x01ACTION \x0Fsummons $kureru for $summonernm. Don\'t let $pn run wild! $summonernm now has \x02$UStats[2]\x02 $ihaz!\x01\r\n";
      print $sock "NOTICE $summoner :Curious? Enter \x02!puchistats\x02 to see your detailed stats!\r\n";
     }