Select Code to Download

foreach my $name (@names) {
   if ($dbpattern{$name} =~ /$pattern/i or $dbcolor{$name} =~ /$color/
+i) {
       # print out the record
   }
}

$i =0;
while (my $name[$i] = <DBFILE>) {
...
   # now go on as before ...
   $i++;
}

superpicture|TerraCotta|Offset Brick|5

chomp $line;
my @record = split /\|/, $line, 4;
# $record[0] is name, 1 => color 2 => pattern, etc.

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'