sub Filter {
    my $Text = shift;

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