if ($command =~ /<VER\s+NUMBER>\s/)
{
  $command =~ s/<VER\s+NUMBER>/$ver/;
}
elsif ($command =~ /<VER\s+NUMBER\s+\+\s+1>\s/)
{
   $ver = $ver +1;
   $command =~ s/<PATCH\s+NUMBER>/$ver/;
}