#!/usr/bin/perl
use warnings;
use strict;
open OUTPUT, ">c:/temp/warning.txt";
open LOGFILE, "shift.txt"
or die "What you talkin bout Willis? ($!)";
while (<LOGFILE>) {
        print "$_\n" if /secret\.html/;
        print OUTPUT "The text you were looking for was found\.";
        last;
}
close OUTPUT;

##</code><code>##

stringa = '"imagdata.zip is ready for transfer"';
stringb = '"ConnectDirect Transfer was initiated"';, etc.