Select Code to Download

sub weirdmatch {
    my ($foo, $bar) = @_;
...
print weirdmatch('the' => 'there');  # 1
print weirdmatch('foo' => 'raboof'); # 1
print weirdmatch('moo' => 'monkey'); # 0

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$