Help for this page

Select Code to Download


  1. or download this
    sub Filter {
    my $Text = shift;
...
    return $Text =~ /Hello(?i:one|two|three| )*World/ ? 1 : 0;
}
  2. or download this
    sub Filter {
    my $Text = shift;
...
    return 0 + $Text =~ /Hello(?i:one|two|three| )*World/;
}
  3. or download this
    sub Filter {
    my $Text = shift;
...
    return $Text =~ /Hello(?i:one|two|three| )*World/;
}