last if $char_read eq /\s/;