my $ausgabe = qx{ls};
print q{Perl!}if $ausgabe =~ /perl/;