perl -pi.bak -e "

use features qw/state/;
state $nameshash = { 'Poole' => 1 };

s/(<.*?CIT-)(\w+)(-\w\d+.*?>)/"$1$2".$nameshash->{$2}++."$3"/ge;
              
" bibliofile