my $inlist = 0; while(<>) { chop; if ( $inlist ||= /^(\)(.*)$/ ) { print "$1"; $_=$2; } $inlist &&= !( /^(.*)(\)$/ and print "$1" and $_=$2 ); print "$_\n"; }