$_ = 'I threw the balls through the rings and won a prize!';
print "Gotcha!\n" if /^(?=.*balls)(?=.*rings)/s;