Select Code to Download

for (1..10) {
    ...
    last if ($charread =~ /\s/);
}

for (1..10) {
    ...
    last if ($charread eq " " || $charread eq "\t" ....);
}