[急,在线等] asp转perl问题，懂两种语言的朋友请进。

[FMBen]

asp 代码,作用,分离原来的一段如
/index.html
/here.html
/myfile/1.html

这样的代码，我不会perl的数组控制，希望有朋友能帮忙，解决即结贴.

sourcecode = Split(wording, chr(13), -1, 1)
numberoffiles=UBound(sourcecode)+1
for i = 0 to UBound(sourcecode)

sourcecode(i) = replace (sourcecode(i),chr(10),"") 'delete the space in path
sourcecode(i) = replace (sourcecode(i),chr(13),"") 'delete the enter in path sourcecode(i) = trim(sourcecode(i))

' format the wording
temp=left(sourcecode(i),1)
if temp<>"/" then sourcecode(i)="/" & sourcecode(i)
sourcecode(i)=replace(sourcecode(i),"/","$",1,1,1)
sourcecode(i)=replace(sourcecode(i),"$content/","$")

[Meteorlet]

while (<FILE>)
{
s!/!$!g; s!\$content!$!;
}

[FMBen]

看不是太明白。晕倒了。要。
我需要分离的是一行一行 chr(13) 在 Perl 中不知道是怎么表示呢。

[zhouyouben]

perl 处理字符就是厉害啊