in reply to Set the flag

You could use perlre

In Section Seekers of Perl Wisdom