my $true  = qr/y(?:es|up)?|1|enabled?/i;
my $false = qr/n(?:o(?:pe)?)?|0|disabled?/i;
die "Need boolean input"
  unless /^(?:$true|$false)$/;
if (/$true/)
{
  do_stuff();
}