Select Code to Download

Select or download this

if ( @chunks > 1 && $chunks[-2] =~ s/$comment$// ) { 
    ...
}

Select or download this

  if ( @chunks > 1 && $chunks[-2] =~ s/$comment$// ) {
      pop @chunks;
  }

Select or download this

  if ( @chunks > 1 ) {
      $chunks[-2] =~ s/$comment$//;   # XXX remove comment indicator
      pop @chunks;                    # XXX remove the comment
  }

Select or download this

        my $split = Data::Record->new(
            {
                split  => $comment,
...
            }
        );
        my @chunks = $split->records($line_of_sql);

Select or download this

  if ( @chunks > 1 && $chunks[-2] =~ s/$comment$// ) {
      pop @chunks;
  }

Select or download this

  if ( @chunks > 1 ) {
      $chunks[-2] =~ s/$comment$//;   # XXX remove comment indicator
      pop @chunks;                    # XXX remove the comment
  }