на перле
имеется КСВ текстовый файл, данные через ";", как посчитать количество данных в одной строке;
Также вопрос, найдя в строке слово как забрать всю строку?
есть ли что-то типа перехода на начало строки?

<BLOCKQUOTE><font size="1" face="Verdana, Tahoma, sans-serif">code:</font><HR><pre>
#!/usr/bin/perl

open(SF,'some');
while(<SF> ) {
@arr = split(/;/, $_);
print $#arr;
}
close(SF);
</pre><HR></BLOCKQUOTE>