$author =~ s/\.//g; # Remove full stops (periods)