用perl 怎么读取txt中的数据？求大侠帮忙

用perl 如何读取txt中的数据？求大侠帮忙
现在要读取txt文件中的数据，内容如下:
-1744891292|2011-11-21 00:00:00|河北|北京|127681
-1742221113|2011-11-21 00:00:00|河北|唐山|121681


我要读取这文件中的数据，取一个值都要单独取出来，放到数据库的一张表里，求助。


------解决方案--------------------
你别这么急嘛，我给你个思路，我用python给你写个流程

假设文件在11.txt里

file = open('11.txt', 'r+')
print file
a = file.read()
print a
result = a.split('|')
print result 

print result[0]
print result[1]
print result[2]



剩下的事情，就是你去搜搜 perl 下的read和split 实现了。