sub Filter {
    my $Text = shift;

    return 0 + $Text =~ /Hello(?i:one|two|three| )*World/;
}