use strict;
use warnings;
my $string = "Some garbled question?";
print "$string Yes, it is!\n" if $string =~ /garbled/ && $string =~ /question/;