foreach (@alpha = split //,$foo) { $_++; if (($_**2 == 0) && ($_ != 1) ){ print "$foo Contains Alpha Characters\n"; last; } }