明日以降は、ここを見る回数も減るかもしれない。みなさん一応さようなら
ネタは不評だったけど、最後かもしれないし >>363 にも答えておこう。
perl と ruby で

#!/bin/sh
echo '商工会議所長' |
　perl -ne 'while( /(?=(会議所|所長))/g ){ print $1, "\n"; }'

echo '商工会議所長' |
　ruby -Ku -ne 'puts $_.scan( /(?=(会議所|所長))/ ).join( "\n" )'