perl -e 'push(@a,grep(/bra/,"abracadabra")); print @a;'
abracadabra
perl -e 'push(@a,grep(/bar/,"abracadabra")); print @a;'
(no output)