my @ids = map { $_ =~ s/<.+?>//g; $_ =~ s/^(\d+([stnrdh]{2}|))/NUMWORDS($1)/e; $_ =~ s/(.)\.\w{2,5}?$/$1/; $_ =~ s/&/and/g; $_ =~ s/&/and/g; $_ =~ s/Æ/Ae/g; $_ =~ s/Ç/C/g; $_ =~ s/Ü/U/g; $_ =~ s/(è|é|ê)/e/g; $_ =~ s/#/No/g; $_ =~ s/ /_/g; $_ =~ s/[^\w:.\-]//g; $_; } grep {defined($_)} @base;