$ perl -Mstrict -we'my $s=1;for(qw/foo bar baz/){ print if /b/..$s }'
barbaz$ 
$ perl -Mstrict -we'my $s=1;for(qw/foo bar baz/){ print if $s../b/ }'
$