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

##</code><code>##

next if /ORA-\d: unique constraint \(.*?\) violated/;