my $thing = do {
    my $rn = int(rand(6))+1;

    ($rn == 6) ? "Excellent roll"    :
    ($rn > 3)  ? "Pretty good roll." :
    ($rn == 1) ? "Lousy Roll"        :
                 "Meh.";
};