$line =~ m/(.*?)(\d+\/\d+\/\d+)?\s*(.*)/;
   print "Input    : $line";
   print "Output \$1: -$1-\n";
   print "Output \$2: -$2-\n";
   print "Output \$3: -$3-\n\n";

##</code><code>##

Input    :                          301 S. MAPLE STREET
Output $1: --
Output $2: --
-utput $3: -301 S. MAPLE STREET

Input    :  09/09/2009              301 S. MAPLE STREET
Output $1: --
Output $2: --
-utput $3: -09/09/2009              301 S. MAPLE STREET



##</code><code>##

Input    :                          301 S. MAPLE STREET
Output $1: -000001-
-utput $2: -                  JOHN SMITH, III
Output $3: --

Input    :  09/09/2009              301 S. MAPLE STREET
Output $1: - -
Output $2: -09/09/2009-
-utput $3: -301 S. MAPLE STREET