$<.map{|l|a=l.scan(/\S+le/);$><<['Pen',a[1],a[0].capitalize,'Pen'].drop(a[1]?0:2)*' '}