c:\@Work\Perl\monks>perl -wMstrict -e
"my @test = qw(
   Sample1Repeat1A Sample2Repeat2 Sample3Repeat 4SampleRepeat
   4SampleRepeat4  5SampleRepeat5D
   );
 ;;
 for my $s (@test) {
   printf qq{'$s' -> };
   if (my ($p_r, $d1, $p_mc, $p_new_mc) = $s =~ m{
     \b (.+?) (?: (\d*) (?: ([[:upper:]]?) ([[:upper:]]?) )? )? \b
     }xms) {
     printf qq{'$_' } for $p_r, $d1, $p_mc, $p_new_mc;
     print qq{\n};
     }
   else {
     print qq{no match \n};
     }
   }
"
'Sample1Repeat1A' -> 'Sample1Repeat' '1' 'A' ''
'Sample2Repeat2' -> 'Sample2Repeat' '2' '' ''
'Sample3Repeat' -> 'Sample3Repeat' '' '' ''
'4SampleRepeat' -> '4SampleRepeat' '' '' ''
'4SampleRepeat4' -> '4SampleRepeat' '4' '' ''
'5SampleRepeat5D' -> '5SampleRepeat' '5' 'D' ''