open(INF,"data.txt"); ## Open read file
@userdata = <INF>; ## Put into an array
close(INF);

$linenum=0;
foreach $line (@userdata)
{
  print "$linenum\n"; 

  if ($userdata[$linenum] =~ /¦$tail/) 
  {
    ********** Do Stuff - But currently not working is symbol beyond line 4300
  }

  $linenum++;
}