my @work = ('currently boring project') && my $boss = 'chilled';
while (@work) { sleep until $boss =~ /angry/ or grep (/new interesting project/, @work); }