Select Code to Download

#! perl
use strict;
...
{
    print "No match found\n";
}

 1:16 >perl 559_SoPW.pl
name:      name
...
array:     ("Apple", "Tomato", "Orange")

 1:17 >