Unfortunately, you are going to clobber middle initials as well :-(
knoppix@Microknoppix:~$ perl -E ' > $name = q{John I. Jones, IV}; > say $name; > $name =~ s{\b[IVXLCDM]+\b}{}g; > say $name;' John I. Jones, IV John . Jones, knoppix@Microknoppix:~$
Perhaps doing something to remove the comma as well and making the assumption that you can anchor to the end of string?
Cheers,
JohnGG
In reply to Re^4: How to remove roman numbers
by johngg
in thread How to remove roman numbers
by Priti24
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |