$file =~ s/<<(\w+);.*\n\1\n//sg;