$r=join'?',a..z;/^$r?$/&&print for<>