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

##</code><code>##

sub ch_dir
{
    my $cmd = shift;
    $cmd =~ s/cd //;
    chdir($cmd) || die "Can't chdir to: $cmd $!\n";
}