perl中的split和join字段选择

#!/usr/bin/perl  -w
  2 @a = 1..10;
  3 my $result = join("|",@a);     ＃用|划分数组
  4 @result = split /|/, $result;     ＃用|分割字段
  5 my $ok = join("^",@result);      ＃再用|划分数组
  6 print $ok;
输出应该是
1^2^3^4^5^6^7^8^9^10
但是结果是
1^|^2^|^3^|^4^|^5^|^6^|^7^|^8^|^9^|^1^0

split /\|/, $result;

谢谢!

DUI