#!perl -p
s;.*?[A-Z];@+ ;g;s; \w*$;