Można to rozwiązać na wiele róznych i ciekawych sposobów.
Podam przykład detekcji kolorów w stringu:
#!/usr/bin/perl
@defined = ("seledin","orange" ,"purple" ,"green", "yellow", "red", "light blue");
$odstep = "\t";
$colors = 'green yellow red light blue';
foreach $var (@defined){
print $var;
if(length $var < 8){
$odstep = "\t\t";
}else{$odstep = "\t";}
if($colors =~ /$var/){
print "${odstep} defined\n";
}else{print "${odstep} not defined\n";}
}
wynik w konsoli:
$ ./sk.pl
seledin not defined
orange not defined
purple not defined
green defined
yellow defined
red defined
light blue defined