while () { if (/^AMQ8409 .* QUEUE\( ([^\)]+) \) .* RNAME\( ([^\)]+) \)/x) { print OUTPUT "QUEUE($1) ------> RNAME($2)\n"; } }