in reply to Regex with Newline

As ';' is the only way to identify a company name, why not something like this?

while (<DATA>) { chomp; print "\n" if /;/; print $_; } print "\n";

Replies are listed 'Best First'.
Re^2: Regex with Newline
by Marshall (Canon) on Aug 26, 2011 at 16:04 UTC
    I like the simplicity of this.