[perl] 问一个正则表达式

[me]

$line="11|a2|3y |4s |55";

如何把$line中的分割线|分开的部分分别保存到变量中？

[iblicf]

a1= `echo "11|a2|3y |4s |55"|awk -F\| '{print $1}'`
a2=....

[eexpress]

估计要看骆驼书了。

[me]

@data = split /\|/,$line;