#!/usr/bin/perl
while (<STDIN>)
{ 
  if ($_ =~ /send/)
  {

     {
       print "hello world";
     }
  }
}