sub remove_trailing_newlines( $ ) {
      my ( $stringref ) = @_;

      ${$stringref} =~ s/[\r\n]+\z//gs;
  }

##</code><code>##

  remove_trailing_newlines( \$cmd );
  remove_trailing_newlines( \$check );