does_match(myStr,"m/^[A-Z]+/g") [download]
In reply to Perl Regular Expressions / C++ by JojoLinkyBob