if (my ($match) = $s =~ /yesterday (.*?) after/s) {
   say $match;
}