if($line =~ /^([^{};]+[{};])(\s*\S+.*)$/s) { ## Do something here } [download]
In reply to Help with Perl RE by newbie2009