$ perl -ne 'print if $seen{/$_(\h\.)?}++' story.rst