sub Filter {
    my $Text = shift;

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


##</code><code>##

sub Filter {
    my $Text = shift;

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


##</code><code>##

sub Filter {
    my $Text = shift;

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