my $line = q{one <two>};
$line =~ /
	([^<]+)
	(?:
		<
		(two|three)
		>
	)?
/x;

print $1, $2;