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