#!/usr/bin/perl -l

use strict;
use warnings;

my(@data) = q(
    1. Iilliam H. Schneider, IV
    2. William Vassilakis, II
    3. Alessandro Calvi, I
);

foreach my $data (@data) {
    $data =~ s/\b[IVXLCDM]+\b//g;
    chomp $data;
    print "$data\n";
}