$ver = $ver +1; $command =~ s//$ver/; #can be rewritten as: $command =~ s//++$ver/e; #### if ($command =~ / /) { $command =~ s//$ver/; } elsif ($command =~ / /) { $ver = $ver +1; $command =~ s//$ver/; } #### if ($command =~ /\s/) { $command =~ s//$ver/; } elsif ($command =~ /\s/) { $ver = $ver +1; $command =~ s//$ver/; }