last if $char_read =~ /\s/; #### perldoc perl #### perlrequick Perl regular expressions quick start perlretut Perl regular expressions tutorial perlre Perl regular expressions, the rest of the story #### perldoc perlrequick