last if $char_read =~ /\s/;

##</code><code>##

   perldoc perl

##</code><code>##

           perlrequick         Perl regular expressions quick start
           perlretut           Perl regular expressions tutorial
           perlre              Perl regular expressions, the rest of the story

##</code><code>##

   perldoc perlrequick