#!/usr/bin/perl -w
require 5.010_000;
use strict;
use warnings;
use feature ':5.10';

my $name='tom jones';

{
	my $gender;
	
	given ( $name )
	{
		when ( /^
					(
						tom jones|
						greg herman
					)
				/xms
			 )
		{
			$gender='male';
		}
	}
	say 'gender='.( $gender//'undef' );
}

{
	my $gender;
	
	given ( $name )
	{
		when ( /^
					(
						tom jones|
						greg herman|
					)
				/xms
			 )
		{
			$gender='male';
		}
	}
	say 'gender='.( $gender//'undef' );
}

exit;