#!/usr/bin/perl -w
use strict;

while (<DATA>) {
    next unless /data to/;
    chomp;
    my $server = (split)[2];
    print "Server is $server\n";

    if ($server eq "L650-F01") {
        # Do somthing
    }
    elsif ($server eq "MAP050-DFyutv01") {
        # Do something else
    }
    elsif ($server eq "gbsdfghfif7") {
        # Do something else else
    }
}


__DATA__
data to L650-F01 is ip address
 sdf sdf sdf
sdf sdf sdfs
Thu Oct 27 11:16:55 GMT 2005


data to L650-F01 is sdf..1 . . .
 sdf sdf sdf
sdf sdf sdfs
Thu Oct 27 11:16:55 GMT 2005


data to  . . . #(no is here )
 sdf gdfg dfgdf
dfgdf dfgdf dfg
Thu Oct 27 10:58:46 GMT 2005

data to  MAP050-DFyutv01 is
 sdf gdfg dfgdf
dfgdf dfgdf dfg
Thu Oct 27 10:58:46 GMT 2005

data to  . . . (same as above)
 sdf gdfg dfgdf
dfgdf dfgdf dfg
Thu Oct 27 10:58:46 GMT 2005

 data to gbsdfghfif7 is ip address
 fgd dfgdf dfg
dfg dfgd fdfgdf
dfg ddfg fd dgfd
Thu Oct 27 10:59:23 GMT 2005