if($line =~ /^([^{};]+[{};])(\s*\S+.*)$/s) { ## Do something here }