#!perl -ln0
s/\b$1\b//gwhile/(.+): *
/&print$1