Help for this page
my $rx = qr{ ... }xms; my $ry = qr{ ... }xms; ... if ($string =~ m{ \A $rx* $ry+ $rz{2,5} \z }xms) { ... }