为啥匹配不出来呢，急死了

CODE:

$ cat test.pl                                                                                                               
#!/usr/bin/perl                                                                                                                             
                                                                                                                                            
my $str="PRO_PLANT_UNIT_REDUCE_POLLUTE  -> MID_PLANT_UNIT_REDUCE_POLLUTE   |RPT_MONTH      |DEPT_ID   |wf_mid_plant_unit_reduce_pollute_ini
t.tt2 |template_refresh_1.tt2";                                                                                                            
                                                                                                                                            
($source_table, $target_table, $rpt_month, $dept_id, $template_init, $template_refresh) = $str =~ /^\s*(\w+)\s*->\s*(\w+)\s*\|\s*(\w+)\s*\|
\s*(\w+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*$/;                                                                                                   
                                                                                                                                            
print "1:$source_table\n";                                                                                                                  
print "2:$target_table\n";                                                                                                                  
print "3:$rpt_month\n";                                                                                                                     
print "4:$dept_id\n";                                                                                                                       
print "5:$template_init\n";                                                                                                                 
print "6:$template_refresh\n";                                                                                                               
                                                                                                                                            
                                                                                                                                            
$ perl test.pl                                                                                                              
1:PRO_PLANT_UNIT_REDUCE_POLLUTE                                                                                                            
2:MID_PLANT_UNIT_REDUCE_POLLUTE                                                                                                            
3:RPT_MONTH                                                                                                                                 
4:DEPT_ID                                                                                                                                   
5:wf_mid_plant_unit_reduce_pollute_init.tt2                                                                                                
6:template_refresh_1.tt2