$some_text = <>;
chomp($some_text);
if ($some_text =~ m/MONEY/){
    print "IT HAS MONEY!!!!!!!!\n";
}
