perl split和join的使用一例

perl split和join的使用，实际操作下，加深理解。
split : @seq=split /操作符/ , $seq;用到了模式~~~~
join:   $seq=join "分隔符"，@seq; 而非模式