select$q,$q,$q,(print$_)/10
        for("J","u","s","t"," ","a","n","o","t","h","e","r"," ",
        "P","e","r","l"," ","h","a","c","k","e","r",",",$/)