Toot

Just dropped my pronouns as a Regex in my profile. It is in PCRE dialect since it uses conditionals.

You can use it in a Perl script like this:print "Enter a pronoun for validation: ";

my $pronoun = ;

chomp $pronoun;

if ($pronoun =~ /^(ca)?(s)?(t)?(h)?(m)?(e)?(?(6)(?(5)ow|(?(2)|(?(3)(?(4)(y|m|(ir)))|(?(4)r|(y|m|(ir))))))|)$/mg) {

print "Valid Pronoun Found.\n";

}

else {

print "Invalid Pronoun detected!! Ready for termination!\n";

exit(-69);

}

Mentions