You're replying to a comment by Anirudh.

Anirudh Permalink
April 20, 2016, 06:24

# define a regex for matching balanced parens
my $re = qr/( [(]+ ) (.*?) (??{"\\)" x length $1})/xms;

while( defined(local $_ = <>) ) {
print, next unless /FIND_WORD/ && /$re/xms;
$_ .= <>;
redo;
}

Reply To This Comment

(why do I need your e-mail?)

(Your twitter handle, if you have one.)

Type the word "floppy_303": (just to make sure you're a human)

Please preview the comment before submitting to make sure it's OK.