my $string=<STDIN>;
chomp $string;
if ("hallo welt" =~ $string) { print "juhu\n" }