use warnings; use strict; while () { print "$1\n" if /\\\[(\w+)\\]/; } __DATA__ test\[abc\]test test\[cde\]test test\[ack\]test