in reply to pattern match

sorry, thought of something $line = $. if (m/$complex\D+/);

Replies are listed 'Best First'.