$i=1;

foreach $line(@file)
{
  chomp $line;  
  ($numb."[$i]",$text."[$i]")=split(/\|\|/,$line);#problem??

$i++;
}

##</code><code>##

for($j=0; $j<$i; $j++)
{ print $numb."[$i]||".$text."[$i]"; }