#! perl -nw
print if m,/[^.]+$,