Select Code to Download

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

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

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

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

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

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