$ perl -we'$_="FOO"; /^([A-Z]+)$/, print $1; $_="Foo"; /^([A-Z]+)$/; print $1'
FOOFOO
$ perl -we'for ("FOO","Foo") {/^([A-Z]+)$/; print $1 }'
FOOF