if ( (split /\s+/, $mytest)[0] eq "Hello" )