#!/usr/bin/perl
while (<STDIN>) { 
    print "hello world\n" if /send/;
}