while ($_ = substr($foo,$i++,1)){ if (++$_**2 == 0) { print "$foo Contains Alpha Characters\n"; last; } }