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