$line=0;
$matchline=5;
$char = 1;
open(MYFILE, "$myfile") || die;
while(<MYFILE>) {
  ++$line >= $matchline || next;
  $l=length($_);
  print "Found line $line (length: $l)\n$_\n";
  if ($l>$char) {
    print "Character $char is ", substr($_,$char-1,1), "\n";
  }
  last;
}