Based on the discussion in this thread I've ignored the regexes in the OP and instead pieced together the various examples given.

#!/usr/bin/env perl
use warnings;
use strict;

use Test::More;

sub parse {
    my ($str) = @_;
    my @m = $str =~ m{
        ^ (?<P_ROOTCODE>\w+?)
          (?: (?<DAY1>\d)
              (?<P_MON_CODE>\w)?
              (?<P_NEW_MON_CODE>\w)?
          )?
        $ }x;
    note explain { $str => \%+ }; # debug output
    @m = map {$_//''} @m; # undef -> "" (optional)
    return \@m;
}

is_deeply parse("RS"), ["RS","","",""];
is_deeply parse("RC1XY"), ["RC","1","X","Y"];
is_deeply parse("RW12QW1X"), ["RW12QW", "1", "X", ""];
is_deeply parse("Sample1Repeat1A"), ["Sample1Repeat", "1", "A", ""];
is_deeply parse("Sample2Repeat2"), ["Sample2Repeat", "2", "", ""];
is_deeply parse("Sample3Repeat"), ["Sample3Repeat", "", "", ""];
is_deeply parse("4SampleRepeat"), ["4SampleRepeat", "", "", ""];
is_deeply parse("4SampleRepeat4"), ["4SampleRepeat", "4", "", ""];
is_deeply parse("5SampleRepeat5D"), ["5SampleRepeat", "5", "D", ""];

done_testing;
[download]

Sample output:

# {
#   'RS' => {
#     'P_ROOTCODE' => 'RS'
#   }
# }
ok 1
# {
#   'RC1XY' => {
#     'DAY1' => '1',
#     'P_MON_CODE' => 'X',
#     'P_NEW_MON_CODE' => 'Y',
#     'P_ROOTCODE' => 'RC'
#   }
# }
ok 2
# {
#   'RW12QW1X' => {
#     'DAY1' => '1',
#     'P_MON_CODE' => 'X',
#     'P_ROOTCODE' => 'RW12QW'
#   }
# }
ok 3
...
ok 9
1..9
[download]

If that still doesn't suit your needs, add more test cases.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.