($a,$b)=glob<>;print grep({chop($a)