print!!<><<grep{$%=$_;$%-=$-=$%-($_^$%)for@_;$%&&push@_,$%}glob<>