Help for this page
for (1..10) { ... last if ($charread =~ /\s/); }
for (1..10) { ... last if ($charread eq " " || $charread eq "\t" ....); }