#!/usr/bin/perl -w use strict; my $found = 0; $_ = "A aA AaA aAa AA aa... '"; my $sought = "aA"; foreach my $word (split) { if ($word eq $sought) { $found = 1; last; } } if ($found) { print "found\n"; }