perl split函数

use strict;
  2 use warnings;
  3 my $str="A..B..";
  4 my @vec=split /\.\./,$str;
  5 foreach my $key (@vec)
  6 {
  7     my $len=length($key);
  8     print STDERR "$key\t$len\n";
  9 }
~