my $rx = qr{ ... }xms;
my $ry = qr{ ... }xms;
my $rz = qr{ ... }xms;

if ($string =~ m{ \A $rx* $ry+ $rz{2,5} \z }xms) {
    ...
    }