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