Something

} else {                # not a short reply
            if (!$infobots{$nuh} and $theVerb =~ /is/) {
                my($x) = int(rand(16));
                # oh this could be done much better
                if ($x <= 5) {
                    $theMsg= "$orig_Y is $theMsg";
                }
                if ($x == 6) {
                    $theMsg= "i think $orig_Y is $theMsg";
                }
                if ($x == 7) {
                    $theMsg= "hmmm... $orig_Y is $theMsg";
                }
                if ($x == 8) {
                    $theMsg= "it has been said that $orig_Y is $theMsg";
                }
                if ($x == 9) {
                    $theMsg= "$orig_Y is probably $theMsg";
                }
                if ($x == 10) {
                    $theMsg =~ s/[.!?]+$//;
                    $theMsg= "rumour has it $orig_Y is $theMsg";
                    # $theMsg .= " dumbass";
                }
                if ($x == 11) {
                    $theMsg= "i heard $orig_Y was $theMsg";
                }
                if ($x == 12) {
                    $theMsg= "somebody said $orig_Y was $theMsg";
                }
                if ($x == 13) {
                    $theMsg= "i guess $orig_Y is $theMsg";
                }
                if ($x == 14) {
                    $theMsg= "well, $orig_Y is $theMsg";
                }
                if ($x == 15) {
                    $theMsg =~ s/[.!?]+$//;
                    $theMsg= "$orig_Y is, like, $theMsg";
                }