$/="$external_info";
open(FH, "/path/to/file") || die "Can't open file: $!";
while (<FH>) {
  if length($_) != (stat FH)[7]) {
    print "great\n";
    last;
  }  
}