while( 1 ){
   my $sum;
   print "Enter name: ";
   chomp($_ = <>);
   tr/cdlmvxjJuU/CDLMVXIIVV/;
   map { $sum += RtoD($_) }  split//;
   if($sum == 666) {
      markOfTheBeast();
      last;
   } else {
      print "The number is $sum...blessed be!\n";
   }
}

sub RtoD {
   $X = shift;
   return 1 if $X eq 'I';
   return 5 if $X eq 'V';
   return 10 if $X eq 'X';
   return 50 if $X eq 'L';
   return 100 if $X eq 'C';
   return 500 if $X eq 'D';
   return 1000 if $X eq 'M';
   return 0;
}