open my $fh, '<', '/path/to/file'
    or die $!;
while (<$fh>) {
    if ( $_ eq $external_info ) {
        print 'great!', $/;
        last;
    }
}
close $fh or die $!;