#!/usr/bin/perl

FOO: {
	if (/^abc/) { $abc = 1; last FOO; }
	if (/^def/) { $def = 1; last FOO; }
	if (/^xyz/) { $xyz = 1; last FOO; }
	$nothing = 1;
}

FOO: {
	$abc = 1, last FOO  if /^abc/;
	$def = 1, last FOO  if /^def/;
	$xyz = 1, last FOO  if /^xyz/;
	$nothing = 1;
}

FOO: {
	/^abc/ && do { $abc = 1; last FOO; };
	/^def/ && do { $def = 1; last FOO; };
	/^xyz/ && do { $xyz = 1; last FOO; };
	$nothing = 1;
}

FOO: {
	/^abc/ && ($abc = 1, last FOO);
	/^def/ && ($def = 1, last FOO);
	/^xyz/ && ($xyz = 1, last FOO);
	$nothing = 1;
}

if (/^abc/)
	{ $abc = 1; }
elsif (/^def/)
	{ $def = 1; }
elsif (/^xyz/)
	{ $xyz = 1; }
else
	{$nothing = 1;}
