last if $char_read =~ /\s/;