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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

        my $split = Data::Record->new(
            {
                split  => $comment,
                unless => $RE{quoted},
                chomp  => 0,
                trim   => 1,
            }
        );
        my @chunks = $split->records($line_of_sql);

##</code><code>##

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

##</code><code>##

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