~edgarsi/percona-toolkit/osc-stop-restart

   if ( $user_vars ) {

      foreach my $var_val ( @$user_vars ) {

         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;

         $user_vars{$var} = {

            val     => $val,

            default => 0,

      %default_vars = map {

         my $var_val = $_;

         my ($var, $val) = $var_val =~ m/([^\s=]+)=(\S+)/;

         $var => {

            val     => $val,

            default => 1,

sub strip_comments {

   my ( $self, $query ) = @_;

   return unless $query;

   $query =~ s/$olc_re//go;

   if ( $query =~ m/$vlc_rf/i ) { # contains show + version

      $query =~ s/$vlc_re//go;

   }

   if ( my ($beginning) = $query =~ m/\A((?:INSERT|REPLACE)(?: IGNORE)?\s+INTO.+?VALUES\s*\(.*?\))\s*,\s*\(/is ) {

      $query = $beginning; # Shorten multi-value INSERT statements ASAP

   }

   $query =~ s/$olc_re//go;

   $query =~ s/\Ause \S+\Z/use ?/i       # Abstract the DB in USE

      && return $query;