perl 截取字符串中指定的两字符之间的内容

Question

字符串是类似这样的内容（由点和竖线构成）： .......|||.....||........||......
我想截取第一条竖线和最后一条竖线之间的字符串，怎样获取到呢？求大神帮助！

Answer 1

$string = '.......|||.....||........||......';
@data = split /\|/, $string;
shift @data; pop @data; 
$result = join '|', @data;
print $result; #||.....||........|

追问

额，最后其实是想获取到包含第一条和最后一条竖线的字符串~能否再指点一下~~