sub Filter {
    my $Text = shift;

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

Or:

sub Filter {
    my $Text = shift;

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

Or just:

sub Filter {
    my $Text = shift;

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