# Need To match:
# Hello One World
# Hello World
# HelloWorld
# Hello One Two World
# Hello Two Three World
# Hello One Three World


#Regex I Tried
sub Filter {
	my $Text = shift;

	if ($Text=~m/Hello(one|two|three| )*World/g) {
		return 1;
	}else{
		return 0;
	}
}